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: 1 001 MODULE yds user (IDENT = 'V04-000', ; 
; § Oe DRESSING_MODE(EXTERNAL = GENERAL)) = : 
3 00 BEGIN 3 
° 4 004 1 ‘. ; 
; 5 005 1! ; 
; $ 44 1 eee eee EESTI TTT aT TTT TITTIES TITAS II IIT TT ITI TT TTT ITIL LTLiTiiiiiiit Ps 
3 1 Ie Ps 
§ 8 Bape 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 B * : 
; 009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
§ 19 oid : it ALL RIGHTS RESERVED. * | : 
4 : ® | ° 
3 \¢ B21¢ 1 !* THIS SOFTWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
his 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
: 14 0014 1 !* INCLUSION OF THe ABOVE yg tdhed NOTICE. THIS SOFTWARE OR ANY THER * ; 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * . 
3 16 0016 1 !* OTHER PERSON. NO ‘ITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: i Bote : * TRANSFERRED. * : 
s 19 0019 1 !® phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 20 0020 1 is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | ; 
; 4 9021 ie CORPORATION. . F 
3 '@ t | Py 
Ps 23 $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
3 ra 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
3; 0025 1 !«* * 3 
; = 0026 1 !« * 3 
3 i it 44 SORA S SSCS ESTP TTT TT TTT Tree ree reece ec ici cere i titi t citi tits ict iit i titi is é 
g 8 00 1 r 
3 9 0029 1 !+4+ | 8 
; 0 0030 1 ! FACILITY: Login : 
3 1 0031 1! 3 
3 $8 et4 1 ! ABSTRACT: é 
cn 2 0035 1! ; ie LotR oad : 
3 $e sit : This module handles all user-specific and CLI initializations. : 
; = 0036 1 ! ENVIRONMENT: 3 
a | 4 0037 1! 3 
; 2 0038 1! VAX/VMS operating system. 3 
; #389 0039 1! 3 
: 40 0040 1 ! AUTHOR: Tim Halvorsen, March 1981 3 
:) 6} 0041 1! 3 
3 42 Bneg 1 ! Modified by: 3 
.- 63 0045 1! 3 
: 64 044 1! V03-036 BLS0346 Benn Schreiber 28-AUG-1984 | 3 
3 rt Onee : Fix cli determination to work for SUBMIT/CLI also. : 
; 67 0047 1! v03-035 PLS0543 Benn Schreiber 26-AUG-1984 s 
: $8 Bere : Force CLI to DCL if network process. , 
; $0 Hitt, 1! v03-034 LJK0288 Lawrence J. Kenah ey My ; 
: 2) Baas : The AUTHPR] now exists on both the PCB and the i. : 
; 34 0088 1! v03-033 meoiee : Mark Bramhall 24-Jul-1984 : 
; ¢¢ b2e : Allow logical mame usage activating CLI tables. : 
s 56 056 1! V03-032 ACG0432 Andrew C. Goldstein, 10-Jul-1984 21:25 ; 
3 57 0057 1! Fix initialization of “Bvt LM F 


Handle longer username and account in UAF; implement 
job type and per type hourly restrictions. Change UAF 
working set fields to longwords. 


V03-022 TMKO004 Todd M. Katz. 21-Dec-1983 
Create the group and job logical name tables by calling the. 
exec routine EXESCRE_JGTABLE instead of issuing the appropriate 
SCRELNT system services. 


v03-021 ACG0376 Andrew C. Goldstein, 18-Nov-1983 18:32 
Put virtual and physical terminal names in global buffers. 
Clarify logic for picking CLI and tables from UAF and params. 
Clean up mapping of CLI: remove SYSSSYSTEM from default 
name string, remove UIC changing ahugns restore calls 
PROTECT_CLI. Allow for existing use 
and JIBSW_SHRFILCNT. 
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vo4~008 1228 8=1b8e 98 41:06 LOGIN. SRCJINITUSER.B32:1 ° (1) | 
; $038 1! | : 
i Fe 059 1! v03-031 MHBO160 _ Mark Bramhall 26-Jun-1984 : 
; & 0060 1! Fixed restriction vector definition in INIT _KERNEL. : 
3 2 ied ! Default CLI tables to "‘clinameTABLES" for aTl CLIs. ; 
3 68 $068 1! V03-030 MHB0126 Mark Bramhall 11-Apr-1984 | ; 
> 664 0064 1! Set node name, etc. becomes SET_NODE_NAME. | : 
: BRe? 1! Set terminal name becomes SET_TERM_NAME. . 
; & 066 1! Copy activated CLI name into CTIL$GT_CLINAME. : 
3; Of 0067 1! Use CTLSGT_SPAWNCLI/TABLE as defaulfs for CLI/CLI table. ; 
; 0068 1! Change SET_ACCOUNT to NOVALUE and make it GLOBAL. ; 
; 4 4594 } Change SET[USERNAME to NOVALUE. | : 
eee 0071 1! V03-029 MHB0117 Mark Bramhall 23-Mar-1984 3 
Be: OO72 1% Propagate UAFS$V_AUDIT to both PCB$V_SECAUDIT and PCB_STS. ; 
3 ie, hh ' Remove any version number from the CTL$GT_TABLENAME String. : 
Bae = | 0075 1! V03-028 MHB0109 Mark Bramhall 21-Mar-1984 : 
i) 0076 1! Use LNM services for logical names. : 
ae 0077 1! Copy activated CLI table filespec into CTL$GT_TABLENAME. : 
; 0078 1! Reference PCB_STS as a BITVECTOR. : 
; 7 0079 1! Change SET_NODENAME to NOVALUE and rework it. ; 
; 80 9080 Change SETTERMNAME to NOVALUE and i-ework it. | : 
; 682 0082 1! v03-027 PCG0001 Peter George 31-Jan-1984 11:15 ; 
6 OSS 0083 1! Rewrite CLI and tables determination logic. ; 
; Se Boe : Propagate UAF$V_AUDIT to the PCB. : 
; & 0086 1! v03-026 KPLO0001 Peter Lieberwirth. 27-Jan-1984 13:15 ; 
; 87 0087 1! Correct problem setting up item-Llist for creation of group : 
; 4 454 ! } Logical name table : 
: 90 0090 1 | V03-025 ACG0395 ‘Andrew C. Goldstein, 24-Jan-1984 23:04 | ; 
3 91 0091 1! Restore igh Logical name table code, accidentally dropped : 
; 3 43 : in ACGO389 | : 
5 0094 1! v03-024 ACG0389 Andrew C. Goldstein, 18-Jan-1984 11:30 ; 
; +4 sd ! Condition protecting CLI tables on their being mapped | : 
3 009 ' v03-023 ACGO385 Andrew C. Goldstein 28-Dec-1983 17:14 : 
; 1! | F 
2 1! : 
: 1 ! ; 
; 1: g 
s 1! : 
3 1! : 
: e: : 
: 1! : 
3 1! : 
: 1! : 
: 7 3 ; 
1: ; 
: 1! : 
: 1! : 
: 1! : 
; 1! : 
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v03-020 TMKO0003 Todd M. Katz 12-0¢t-1983 


the process is not a sub-process, create the job-wide 
logical name table. It is necessary to creeve this table a 
second time, because when the table is orig neler created 
within PROCSTRT, it is most often created with the wrong vIC 
and quota. Note that this second creation will delete the 
existing table. 


Change the name of the routine set_group_l|nm_table to P 
set_(nm_tables, and re-create both the group and the job-wide 
logical name tables within it. 


v03-919 TMKO002 Todd M. Katz 26-Sep-1983 
Create the group logical name table with a protection of 
SYSTEM:RWED OWNER: GROUP:R WORLD so that processes with system 
access rights can access and modify any group table. 


v03-018 GASO189 Gerry Smith 22-Sep-1983 
Well, as it turns out, finding the actual physical 
device associated with virtual terminals wasn't such 
a good idea after all. Seems it interferes with the 
working of terminal broadcasts. So, just get the immediate 
device name for the terminal, and find the real physical 
device elsewhere. | 


V03-017 GAS0184 Gerry Smith 16-Sep-1983 
Add yer’ in SET_TERMNAME for the VT terminals, which 
actually point to a physical UCB. This makes sure that, 
for occout ing and security purposes, the actual physical 
terminal is what is kept track of, rather than floating 
“virtual devices’ whose names mean nothing. 


v03-016 GASO183 Gerry Smith 13-S9971985 
Change the SET_TERM stuff just a bit, to facilitate 
breakin evasion. Also, don't set the terminal name | 
unless SYSSINPUT is really a terminal. 


vO3-015 TMKO001 Todd M. Katz _. 22-Aug-1983 
Create the Group Logical Name Table with the protection G:R 
and specify the attributes GROUP and NO_ALIAS on creation. 


v03-014 GAS0166 Gerry Smith | 18-Aug-1983 
When referencing the group logical name table, make 


Pete Se Se Se Ge FH Se Se FO Se Be OHS Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se See ee Se Se Se SH Se Seas 


sure that the group number is in octal, instead of 
decimal. Also obtain the terminal name b cers ing 
ioc$cvt_devnam with -1 instead of 0. NOTE that this 
call may need to be revisited, if terminals start 
having their node associated with them, or 
ioc$cvt_devnam gets rid of the leading underscore. 
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v03-013 GASO161 Gerry Smith 28-Jul-1983 
$ Add environmental rights. 
8 v03-012 GASO155 Gerry Smith 18-Jul-1983 
; Remove the code that protects the CLI pages. 
1 v03-011 GASO152 Gerry Smith 6-Jul-1983 
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INITUSER 16-Sep-1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 4 
v04-000 12-808- 1 3be 12:41:06 LOGIN. SRCJINI TUSER.B32° 1 . (1) 
7 For calls to CRELNM/CRELNT, pass all parameters by 
f if reference. 
7 7 V03-010 GAS0138 Gerry Smith 20-Jun-1983 
f Add CLITABLES, the & command tables. 
7 7 V03-009 DMW4047 DMWalp 10-Jun-1983 
f Create group logical name tables 
8 8 V03-008 GAS0126 Gerry Smith 20-Apr-1983 
8 8 Create the access rights List(s) and attach to PCB. 
8 8 Also, for network processes, set their base priority 
: $ from the NETUAF file. 
8 8 v03-007 wMC0001 Wayne Cardoza 12-Apr-1983 
: H Add MAXDETACH JIB field. 
8 3 V03-006 GAS009S Ger 22-Nov-1982 
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" Smith : 
Add support for the PPD$V_CAPTIVE bit. This enables 
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Smith 
Change the UIC from £10540) to [1,4], since 10 is 
not necessarily a system group-number. 


V02-011 SPFO041 | Steve Forgey — 02-Dec-1981 
Add routine to get remote node information. 


V02-010 HRJO032 Herb Jacobs 12-Nov-1981 
Fix maximization of WSEXTENT field, set account name 
in JIB, and set time of day restrictions in JIB. 


v02-009 LJK0068 Lawrence J. Kenah __. 12-Nov-1981 
Add initialization of PHDS$B_AUTHPRI with new value 
of base priority. 


ee ewe wi eleeielolelelelelelelelelelelelelolololelololelelelolelelelolo ols) 
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9 9 a CLI to determine whether or not the process is a 
3 captive process. 
94 9 v03-005 GAS0092 Gerry Smith 21-0ct-1982 
9 9 Add support for the tui name being in the compatibility 
9 9 mode shelf. This allows the spawning or submission of 
9 9 processes with a different CLI than what the parent 
g process is running. 
0 0 V03-004 TMHO004 Tim Halvorsen 24-Jun-1982 
: | Fix failure to initialize an NFB field. 
0 0 V03-003 TMHO003 Tim Halvorsen 07-Jun-1982 
ee Modify to use new NETACP QI0 interface. 
06 0 v03-002 GAS0079 Gerry Smith 53-May-1982 
0 0 When checking for the presence of the DISCTLY bit, 
0 0 check for the presence of the CAPTIVE bit at well, 
0 Y since CAPTIVE implies disabled ctrl/y. 

1 v03-01 GAS0076 Gerry Smith 23-Apr-1982 

; Get NFB definitions from SHRLIB$:NET.L32 

: V02-012 GAS0052 Gerr 23-Feb-1982 
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V04~000 12286871382 12:41:06 LOGIN. SRCJINITUSER.B32;1 ° (1) 
; 9 0229 1! vO2-008 TMHOOO0S Tim Halvorsen 27-0¢t-1981 
; 0 8 o 3.4 Remove code to initialize CLIREG to LOGIN module. 
3 Hi a Remove code to store ORIGUIC to LOGIN module, since 
; § § 0 ¢ 1! it is now stored in the LGI area. 
; $87 8 7 : Add extra acmode argument to EXEC_CRELOG routine. 
; 935 0235 1 | vO2=007 TMHOOO7 | Tim Halvorsen 12-Oct-1981 
: § 6 0236 1! Update size of CLI OWN storage in P1 space using symbol 
: gy 0237 1! provides by SHELL rather than having the size hard-coded 
; $38 Bs : : ere as weil as in SHELL. 
; $79 8 40 1! v02-006 LJK0063 Lawrence J. Kenah 16-Sep-1981 
: sts 2 rh : Change name of external procedure to LIBSP1_MERGE. 
; sug 05¢8 7 v02-005 SPF0032 Steve Forgey 16-Sep-1981 
; Sie ogee : Use $GETDEV to get terminal name and unit number. 
: 266 0246 1! V02=004 SPF0031 _ Steve Forgey 15-Sep-1981 
; sik osee ' Create a routine to set the terminal name in the PCB. 
: 249 0249 1 v02-003 ROW0021 Ralph 0. Weber 19-Aug-1981 
: 250 0250 1! Make cherges for longword Buffered 1/0 Byte Limit Quota. 
: 29) 0251 1! INIT_KERNEL has been modified to copy UAF$L_BYTLM into 
; $2¢ 0636 1! JIBSC_BYTLM unless UAFSL_BYTLM is zero. When UAFSL_BYTLM is 
; € 0253 1! zero, INIT KERNEL copies UAF$W_BYTLM to JIBSL_BYTLM. Thus 
; 254 0254 1! INIT_KERNEC whether or not the UAF record contains a valid 
3 go> 0255 1! value in UAFSL_BYTLM (ie: it works properly for both old and 
3; <6 0256 1! new format UAF records). (NB: the difference between the 
3 gor 0257 1! word, old style, and longword, new style, names). ALL 
; 258 0258 1! programs which operate on the User Authorization File 
; eo 0259 1! Cog: AUTHORIZE and LOGINOUT) will be modified to first check 
3 se asee ; UAFSL_BYTLM and if it is zero use UAF$W_BYTLM. 
: 262 O26¢ 1 i V02-002 HRJ0023 Herb Jacobs 16-Jul-1981 
; $e? gse7 ' Initialize authorized working set extent field PHD$SW_WSEXTENT. 
: 265 0265 1 | v02=001 TMHOOO1 Tim Halvorsen 16-Jul-1981 
; 266 0266 1! Reference SHRLIB$ for shared require files. 
; 267 0267 1 !-- 
; 268 0268 1 
: 269 0269 1! 
; ero og7o 1! Include files 
; 6401 0271 1! 
: $76 Bsi¢ 1 eases 
; $7 os tz : LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
: $f? pele : REQUIRE ‘SHRLIBS:UTILDEF'; ! Common BLISS definitions 
: eee : LIBRARY ‘SHRLIB$:NET'; ! Network definitions 
: 279 bees 1 REQUIRE 'LIBS:PPDDEF'; ' Process permanent data region 
BT 
; 5g 2016 ' Declare the Linkages to allocate and deallocate nonpaged pool 
; $b 614 1 LINKAGE 
3 ee 0615 1 ALLO = JSB (REGISTER = 1; ! R1 = size (on input) 
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y04~008 14-Sep-1984 3:81 06 LOGIN. SRCJINITUSER.B3251 . (2) 

; 297 06 § . 2 ; 
; 298 06 1 ! Table of contents : 
; oy 0628 1! ; 
; 300 0629 1 ; 
; 301 0630 1 FORWARD ROUTINE : 
; we 0631 1 init_user: NOVALUE, ! Initialize user process quotas, etc. ; 
3; 06 ¢ 1 init kernel: NOVALUE, ! Initialize user in kernel mode : 
; 304 Oo8 1 initlcli:. NOVALUE, ! Initialize CLI image : 
s 30> 0634 1 setup_login_proc: NOVALUE, ! Setup login command procedure : 
; 306 0635 1 map_cli: NOVALUE, : Bae the CLI image into Pl space | : 
s; Sor 0636 1 execute _cli: NOVALUE, ' Call the CLI jnsge at its entry point ; 
; 308 0637 1 map_imgact: NOVALUE, ! Map image activator code segment ; 
: 309 0638 1 set_pl_base, ! Set base address of control region : 
; 310 0639 1 set_account: NOVALUE, ' Set account name in JIB and P1 space : 
3 (UT 0640 1 set_username: NOVALUE, ! Set username in JIB and P1 space : 
; ag 0641 1 set_node_name: NOVALUE, ! Set remote node info in P1 space : 
“ ) 0642 1 set_term_name: NOVALUE, ' Set terminal name in PC ; 
: 314 0645 1 set_uic, | ! Set process UIC ‘ : 
> 315 0644 1 create_lo ical, ! Create logical name with LNM services : 
: 316 0645 1 make _rightslists: NOVALUE, ' Create the rights Lists : 
3 aie 0646 1 set_Tocalrights, ! Set up the local rights list. : 
; 318 0647 1 set_more_rights, ! Set up the extended rights List : 
3; 6S? 0648 1 set_lnm_fables; ! Set up group and job-wide inm tables ; 
: 320 0649 1 : 
; 321 0650 1! ; : 
3 fee 0651 1 ! External routines ; 
S 29 0652 1! : 
: 324 0653 1 : 
3; «Be? 0654 1 EXTERNAL ROUTINE : 
3; [pee 0655 1 strSappend, ! Append to a dynamic buffer ; 
s Ser 0656 1 set ppd_prot. ! Set page protection on PPD structure : 
; 328 0657 1 handler, ! Condition handler : 
: 329 0658 1 sys$setddir, — ' Set default directory : 
3 330 0659 1 l\gi$protect_cli, ! Read-protect CLI code : 
s Be 0660 1 execute_image: NOVALUE, ' Chain to an image : 
; 332 0661 1 Lib$p1_merge, ! Merge image into P1 space : 
g 355 0662 1 sys$find_held, ! RDB routine to find all ID's for a user 3 
; 4334 0663 1 exeS$deanonpaged: DEALLO, ' Deallocate aennpoged pool $ 
3 (Boe 0664 1 exe$alononpaged: ALLO, ! Allocate non-paged pool ; 
; 3 0665 1 exe$cre_jgtable: JGTABLE; ! Create Job and Group Tables : 
$ sor 0666 1 $ 
3; jae 0667 1! : 
3; I 0668 1 ! External storage 3 
: 340 0669 1! 3 
: 341 0670 1 EXTERNAL. ‘ : 3 ; 
: 342 0671 1 terminal _device BYTE ! True if SYSSINPUT is a terminal ; 
; 343 0672 1 term_name: VECTOR, ! Terminal name descriptor ; : 
: 344 06735 1 dev_char_2: LOCK, ! Device characteristics of sys$input : 
: «345 0674 1 dev_dep_2: $BBLOCK ! Dev-dependent chars of sys$input 3 
: 346 0675 1 pcb_sts: BITVECTOR, ' PCB status stags 3 
3: 347 0676 1 job_type, ! Job type code for JIB 3 
: 348 0677 1 uaf_ record: REF $BBLOCK, ! Address of UAF record : 
3: 349 0678 1 sysSinput: VECTOR, ' Translation of SYSS$INPUT F 
; 350 0679 1 cli_name: VECTOR, ' Descriptor of CLI to map 3 
s 3D 0680 1 cli_name_buf fer: VECTOR C,BYTE), ! Buffer for CLI name : 
3 $26 0681 1 tabTe_name: Vv ‘ ! Descriptor of CLI command table : 
; 2 0682 1 table_name_buffer: VECTOR C,BYTEJ, ! Buffer for CLI command table : 
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1 
1 
: 4 683 1 disk_name: VECTOR, ! Descriptor of initial default disk 
5 5 684 1 com_name: VECTOR, ' Descriptor of procedure to execute 
; 6 685 1 com_negated: BYTE. ' True if procedure inhibited 
; 7 6 § 1 subprocess: BYTE, ! True if subprocess 
3 8 06 1 image_activate: BYTE, ! True if image to be activated 
: 359 0688 1 mng imghdrbuf, ! Image header buffer 
; 360 0689 1 ctl$gl_pcb: REF SBBLOCK, ! This process's PCB 
; 361 0690 1 ctl$gl_ccbbase, 
; 6¢ 0691 1 ctl$gl_uaf_flags: BITVECTOR ! Pl space UAF flags 
; 36 0692 1 ctl$gt-cliname: VECTOR C,BYTEJ, | Activated CLI name (ASCIC) 
> 364 0693 1 ctl$gt_tablename VECTOR L,BYTE], ! Activated CLI table name (ASCIC) 
; 365 0694 1 ctl$gt_spawncli: VECTOR L,BYTE], ! Spawn CLI mame (ASCIC) 
; 366 0695 1 ctl$gt_spawntable: VECTOR [,BYTEJ, ! Spawn CLI table name (ASCIC) 
3; «36r 0696 1 ctl$ag_cmedata: VECTOR C,BYTEJ, ! CLI passed here from SIMGACT 
: 368 0697 1 ; ! if cli image name give to SCREPRC 
: 369 0698 1 ctl$ag_climage, ! Address of CLI code in control region 
3 0 0699 1 ctl$ag_clitable, : Address of CLI command tables 
s Sr 0700 1 cti$ag_clidata; ! Process permanent data region 
; 372 0701 1 
; 373 0702 1 BIND 
> 374 0703 1 pod = ctl$ag_clidata: S$BBLOCK; ! Address of PPD structure 
; or 0704 1 
; 376 0705 1! 
s ore 0706 1 ! Define message codes 
; 378 0707 1! 
; 379 0708 1 EXTERNAL LITERAL 
: 380 0709 1 igi$_clifail, 
; 381 0710 1 igi$_cliprot,. 
; see 0711 1 igi$_clitblfail, 
; wes 0712 1 lgi$_clitblprot, 
; «384 0713 1 
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; 386 714 1 GLOBAL ROUTINE init_user: NOVALUE = ; 
; ser 715 (1 : 
; «388 ay 1 !-<< ; 
: 389 Q717 1! ; ; 
: 390 0718 1! Initialize all user context for the process. All . 
3; SP) 0719 1! information from the UAF record is set into the appropriate ; 
; 0720 1! laces in the executive database, such as the UIC, privileges, : 
: er Bf 1 : } ase priority, Limits, quotas, account name, etc. ; 
; 395 07 g 1 ! Inputs: ; 
; 396 0724 1! : 
3; ee $782 13 uaf_ record = Address of UAF record for user (must be non-zero) : 
; 305 4 $ : } disk_name = Descriptor of device name to be used as SYS$DISK : 
: 400 0728 1 ! Outputs: : 
; 401 0729 1! : 
: 40 0730 1! None : 
; 40 0731 1 !--- : 
; 404 Ors 1 : 
; 405 07 BEGIN : 
; 406 0734 : 
: 407 0735 LOCAL : 
; 408 0736 2 tr, ; ; 
; 409 0737 2 username VECTOR (2), ! Descriptor of username : 
; 410 0738 2 account: VECTOR C2), ! Descriptor of account name : 
3; 411 0739 2 device: VECTOR (2), ! Descriptor of default device ; 
> 412 0740 2 directory: VECTOR [2); ! Descriptor of default directory : 
3; 413 0741 2 ‘ 
3 615 0745 2 ! Set base priority for process ; 
> 416 0744 2} ; 
: 417 0745 2 , . 2 ; 
; 418 0746 2 IF .pcb_sts($BITPOSITION(pcb$v_inter)] ! If interactive : 
; ret Bree : on jpcb.stslSB1 TPOSITION(pcbSv_neturk)J ! or network process : 
: 421 0749 2 SSETPRI(PRI = .uaf_record Cuaf$b_priJ); ! Set base priority : 
; 422 0750 2 : 
; 423 0751 2: : 
: 426 O76 2! Set default directory : 
; 425 075 : : 
; 426 0754 ; ; y : 
3; 427 0755 directory (0) = CHSRCHAR(uaf record Cuaf$t_defdir]); ! Get descriptor of directory ; 
; os8 or 28 directory (C1) = uaf_record CSBYTEOFFSET(uat$t_defdir)+1,0,0,0); ; 
3 £8 $788 SYSSSETDDIR(directory, 0, 0); ! Set default directory : 
> 431 0759 ; 
: $36 0760 1 ‘ : : 
: 43 0761 ' Set default disk (logical name SYS$DISK) : 
Py 434 8706 : ° 
: 435 076 etait The : 
: 436 Bree If .disk_name [0] EQL 0 ! If no explicit disk specified : 
: 437 765 THEN : 
; 438 0766 BEGIN 3 ; 
: 439 076 device foi = CHSRCHAR(uaf record Cuaf$t_defdev]); ! Get UAF disk name : 
3; 440 Bree device [1] = uaf_record CSBYTEOFFSET(uaf$t_defdev)+1,0,0,0); : 
3 6441 76° END : 
3 442 0770 ELSE . 
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> 443 0771 
> 444 4c: ah £9) = .disk_name 92: ! Else, use what user specifies 
3; 4465 77 1 a = .disk_name ; 
3 re 774 
ere $7h8 advice (03 NEO 0 ! If devi ified 
3 evice ! evice specified, 
: 449 6798 : 
; $50 0778 gp alaptcal(GAsese "SYSSDISK', 
3s 651 0779 ce, 
: 128 8750 ot hg exec); 
; 45 0781 
: 454 or ee 
3 459 7 Set the username string 
3 $28 0784 
; 457 0785 
3 $28 B76 ptr = CHSFIND_CH(uaf$s_username, uaf_record Cuaf$t_username], ' '); 
3 re a4 4 pprOrAlLt. ptr) ! If no space found, 
3 re Bay ; ag = ee Cuaf$t_username] + uaf%s_username; ! Use entire thing 
> 464 444 username = CHSDIFF(.ptr, uaf_record Cuaf$t_username]); 
3 ree 145, 2 username = uaf _record Cuaf$t_username); 
; 467 P 0795 : SCMKRNL(ROUTIN = set_username, ! Set username string 
; 468 0796 2 ARGLST = username); 
: 469 0797 2 
: 470 0798 2! 
: 471 0799 2! Set the process UIC 
: 47 0800 2: 
: 47 0801 2 
3 474 P 0802 2 Scranas, Cou = set ' Set the UIC 
3 47 0803 2 ARGLST = ust. sad ae Cuaf$l_uic)); 
: 476 0804 2 
3; 477 0805 2! 
; 478 0806 2 ! Set up the correct group and job-wide logical name tables (ie - redo what 
: 479 0807 2 ! PROCSTRT tried to do only this time with the correct UIC and quota 
; 480 0808 ! information. 
; «4481 0809 ! 
; 48 0810 
; 48 0811 BEGIN 
3; 6484 Bais 
; 485 081 LOCAL 
: 486 814 status; 
; 487 815 
: 488 816 4 IF NOT ( status = SCMKRNL( ROUTIN = set_lnm_tables ) ) 
3; 489 0817 THEN 
; 490 0818 SIGNAL_STOP( .status ); 
; 491 0819 
; (49 0820 END; 
; 49 0821 
3 494 8 § ' 
: «4495 82 i Set the account name for the process 
; rh 0824 i 
; 49 4 5 
; 498 0826 account [0] = uaf$s_account; ! Setup descriptor of string 
3; 499 0827 account (1) = uaf_récord Cuaf$t_account); 
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1b-Sep-1984 95:01:16 AX-11 Bliss-32 v4.0-742 
14-Sep-1984 12:41:06 LOGIN. SRCJINITUSER.B32;1 
SCMKRNL(ROUTIN = set_account, ! Set account for process 
ARGLST = account); 
' 
: Set process name to username. If this fails, the process name will be 
; left to the orignal name, in the form _TIxx: 
if ar -ppd Cppd$v_mode] ! If not batch, network or detached, 
SSETPRN(PRCNAM = username) ; ! Set process name (ignore errors) 
' 
Create the access rights Lists and attach them to the PCB. 
make_rightslists(); 
' 
Set terminal name in PCB if connected to a terminal 
IF _.terminal_device ! If connected to a terminal, 
THEN set_term_name(); : set terminal name in PCB 
! 
Perform kernel mode initialization 
SCMKRNL(ROUTIN = init_kernel); ! Copy UAF fields into proper places 
END; 
-TITLE INITUSER 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
48 53 49 44 24 53 53 00000 P.AAB: .ASCII \SYSS$DISK\ 
08 00008 P.AAA: .LONG 17694728 
00° 0000C -ADDRESS P.AAB 
-EXTRN STRSAPPEND, SET_PPD_PROT 
-EXTRN HANDLER, SYSSSETDDIR 
-EXTRN LGISPROTECT CLI 
-EXTRN EXECUTE_IMAGE, LIBSP1_MERGE 
-EXTRN SYSSFIND_HELD, EXESDEANONPAGED 
-EXTRN EXESALONONPAGED 
-EXTRN EXESCRE JGTABL 
-EXTRN TERMINAL DEVICE 
-EXTRN TERM Teh DEV_CHAR_2 
-EXTRN DEV_BEP_2, PCBS 
-EXTRN JOB-TYPE, UAF RECORD 
-EXTRN SYSSINPUT, CLT_NAME 
SEXTRN CLI_NAME_BUFFE 
-EXTRN TABCE NAME, TABLE _NAME_BUFFER 
-EXTRN DISK_RAME, COM_NAME 


4 2 
INITUSER 16-Sep-1984 02:01:14 AX-11 Bliss-32 V4.0-742 
14-000 18-08-1382 0520s LOGIN. SRCJINITUSER.B32; 1 
.EXTRN COM_NEGATED, SUBPROCESS 
SEXTRN IMAGE_ACTIVATE, MMG$IMGHDRBUF 
~EXTRN CTL SGC PCO. CTL$GL_CCBBASE 
-EXTRN CTLSGL-UAF FLAGS 
~EXTRN CTLSGT “ELINARE CTL$GT_TABLENAME 
“EXTRN CILSGT”SPAW cif 
-EXTRN CTLS$GT~SPAW ONT RBL E 
-EXTRN CTLSAG-CMEDATA, CTLSAG_CLIMAGE 
“EXTRN CTLSAG~CLITABLE 
sEXTRN CTLSAG-CLIDATA, LGI$_CLIFAIL 
-EXTRN LGI$_CCIPROT, LGI$_CCITBLFAIL 
-EXTRN LGI$~CLITBLPROT 
SEXTRN LGIS“CLISYMTBL, SYSS$SETPRI 
~EXTRN SYSSCMKRNL. SYSSSETPRN 


-PSECT S$CODES,NOWRT,2 


001¢ 00000 .ENTRY INIT USER. Save R2,R3,R4 
54 000000006 00 9€ 00002 MOVAB SYSSTMKRNL, R4 
53 000000006 00 Hi 00009 MOVAB UAF_RECORD. R3 
SE 20 C2 00010 SUBL2 
08 000000006 00 01 £0 00013 BBS #1, PCB_STS+3, 1$ 
13 000000006 00 05 €1 00018 BBC 3, PCB ~35333" 2$ 
7 D4 00023 1$: CLRL (§P) 
50 63 D0 00025 MOVL _- UAF_RECORD, RO 
7E 02046 CO 9A 00028 MOVZBL 516TRO), -(SP) 
7E 7C 00020 CLRQ  =(SP) 
000000006 00 04 FB 000¢F CALLS #4, SYSSSETPRI 
50 63 DO 00036 2s: MOVL _- UAF_RECORD, RO 
6E 0094 CO 9A 00039 MOVZBL 148TRO), DIRECTORY 
04 AE 0095 CO 9E 0003E MOVAB 149(RO). DIRECTORY+4 
7E 7C 00044 CLRQ (SP) 
08 AE 9F 00046 PUSHAB DIRECTORY 
000000006 00 03 FB 00049 CALLS #3, SYS$SETDDIR 
50 000000006 00 pd 00050 MOVL  DISK_NAME, RO 
oF 12 00057 BNEG 3$ 
50 63 D0 00059 MOVL §_UAF_RECORD, RO 
08 AE 74 Ad 9A 0005C MOVZBL 116TRO), DEVICE 
OC AE 75 AO 9E 00061 VAB_  117(RO); DEVICE+4 
OC 11 00066 BRB 4$ 
08 AE 50 DO 00068 3$: MOVL RO, DEVICE 
OC AE 000000006 00 00 0006C MOVL DISK _NAME+4, DEVICE+4 
08 AE D3 0074 4$: TSTL DEVICE 
OF 1 0077 BEQL 5$ 
01 od 00079 PUSHL #1 
AE 9F 90078 PUSHAB DEVICE 
CF 9F OOO7E PUSHAB P.AAA 
03 FB 008¢ CALLS #3, CREATE -LOGICAL 
6 p 0087 5$: MOVL UAF RECOR dD? 
0 3A OOOBA LOCC #327 #32 Lik ) 
» ¥ 0008 BNEQ 6% 
1 04 00091 CLRL sR 
51 05 0095 6$: TSTL PTR 
04 12 009 BNEQ 7$ 
A2 9E 00097 MOVAB 36(R2), PTR 
A i 009B 7$: MOV 4(R2) 
50 C3 0009F SUBL3 RO, PTR, USERNAME 
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214 AX-11 Bliss-32 V4.0-742 
:06 LOGIN. SRCJINITUSER.B32;1 
4(R2), USERNAME +4 

USERNAME 

SET USERNAME 

UAE RECORD. RO 

YOCROD 

SET ule 

#2," SYSSCMKRNL 

-(§P) 

SET _LNM TABLES 

# SySSCEKRM. 

STATUS, 8$ 

STATUS 

#1, LIBS$STOP 

#36, NT 

#52, UAF_RECORD. ACCOUNT+4 

ace N 


RN 

#1, SYSSSETPRN 

#0, MAKE_RIGHTSLIS 
TERMINAL ~DEVICE, 1 
#0, SET_TERM_NAME 


INIT_KERNEL 
#2, SYSSCMKRNL 
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3 g O86 } ROUTINE init _kernel: NOVALUE = : 
: 4 861 1 !<-- s 
$ 2 5 0 § 1! 5 
; $ peer : Initialize process context in kernel mode. | : 
: : 8 0865 1 ! Inputs: 3 
; 539 94] 1! 3 
; 540 0867 1! Access mode is kernel. ; 
; 541 0868 1! 5 
; 246 34 : uaf_record = Address of UAF record for user (must be non-zero) : 
: 5446 0871 1 ! Outputs: 3 
; 545 pars 1! 3 
; 546 0875 1! None | F 
: 547 0874 1 !<=- 3 
; 548 0875 1 F 
3 549 0876 g BEGIN F 
; 550 0877 3 
3 321 0878 2 STRUCTURE 3 
; 226 0879 § threebytevector Ci; n, ext=0] = 3 
, 55 0880 Cn*3] 3 
3 554 0881 (threebytevector+i*3)<0, 24, ext>; : 
; 555 tt 3 
; 556 et EXTERNAL 3 
5 220 bane § ctlsg t. phd, -! Address of process header : 
: c _wspea ! Peak working set size ; 
; 559 0886 2 etlSgl- virtpeak, ' Peak page file usage 3 
; 560 0887 2 ctl$gq_procpriv, ! Process permanent privileges s 
+ 1 . 
: 20) ttt § pingat- =phyp a ! Total physical pages of memory : 
; 568 ttt 2 sgn$gl_maxwscnt; ' SYSGEN parameter WSMAX | 3 
; 565 089 ; LOCAL : 
; 566 089 pcb: REF BBLOCK, ' Address of PCB ; 
; 567 0894 2 phd: REF BBLOCK, ! Address of PHD ; 
; 568 0895 § ries REF BBLOCK, ! Address of JIB 3 
; 569 0896 : REF BBLOCK, ' Address of AR 

5 359 pare 2 syailable _memory; ! Amount of available physical memory 

3 Sle 0899 § ! 

: 573 0900 2 ! Define a vector structure over the UAF hourly restriction fields 

: ie 54 for quick reference. 

s 576 90 SASSUME (jib$c <petuprk EQL, 1); 

: 577 0904 2 SASSUME (jib$c_batch, EQ, ); | 

; 578 0905 SASSUME (jib$c_ cecal. EQL, 5); 

3; 579 0906 SASSUME (jib$c dialup, EQ, 4); | 

; 580 907 SASSUME ()ib$c_remote 

; 581 0908 SASSUME ( YTEOFF SET tub $6 _network gitcote, s) BYTEOFFSET (uaf$b_network_access pa33): 

3 ont 909 SASSUME (SBYTEOFFSET (uaf$b_batch_access_p), Ea ot” ‘s YTEOFFSET (uaf$b_nétwork_access_s)J+ 

s S38 910 SASSUME (SBYTEOFFSET (uaf$b_batch_access_s), EQL, S$BYTEOFFSET (uaf$b_batch_access_p)+3); 

; 586 911 SASSUME (SBYTEOFFSET (uaf$b_local-access_p), EQL, SBYTEOFFSET (uaf$b_batch_access s)+3); 

; 585 4} SASSUME (SBYTEOFFSET (uaf$b_local-access_s), EQL, SBYTEOFFSET (uaf$b local -access_p)+3); | 

; 586 91 SASSUME (SBYTEOFFSET (uaf$b_dialup_access “pS. FG {, SBYTEOFFSET (uaf$6_local_acces§_s) +3); 

; 587 0914 SASSUME (SBYTEOFFSET (uaf$b_dialup_access_s), EQL, SBYTEOFFSET (uaf$b_ “a%stus® access -P3 33): 

; 588 0915 SASSUME (SBYTEOFFSET (uaf$b_remote_access_p), EQL, S$BYTEOFFSET (uaf$b_dialup_access_s)+5) 
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16-Sep 7:01:14 AX=-11 BLi 
14-Sep 71384 ? 741:06 LOGIN. SRCJ 


SASSUME (SBYTEOFFSET (uafSb_remote_access_s), EQL, SBYTEOFFSET (uaf$b_remot 


D 
restrict_vector = uaf_record(uaf$b_network_access_p] 


: thréebytevector;” 
ctl$gl_wspeak = 0; ! Initialize peak work tog set usage 
ctl$gl-virtpeak = 0; ! Initialize peak page file usage 
pcb = .ctl ' Get address of PCB 
jib = .pcb *eebste jibj; ' Get address of JIB 


jibCjib$Sb_jobtype] = .job_type; 
ctl$gl_uat_flags = .vaf_record Cuaf$l_flags); 
IF .uaf_record Cuaf$v_audit) 

HEN 


BEGIN 
pcb_sts CS$BITPOSITION( — _secaudit)] = 
a. Cpcb$v_secaudit] = 


pcb Cpcb$w_biolm] = .uaf_record Cuaf$w_biolm]; 
pcb Cpcb$w_biocnt] = .uaf_record Cuaf$w_b iolmd; 
pcb Cpcb$w_diolm] = .uaf_record Cuaf$w_ bate 
pcb Cpcb$w_diocnt) = .uaf_record Cuaf$w diotad; 
jib Cjib$Sl-bytlm] = .uaf record g fuatel 6 tlm 
# ¢ ibs byt tn} - .jib Cjib$l_org_bytlm]); 
jib Cjib$l_bytcnt] = .uaf_ trégord tu tus tS m) 
tcbytents > ae Cjib$l_org_bytlm]); 


ie £1 ibs prelim) -uat ha posts w -preentd 
ib C)ib$Sw_filcnt) = .uaf -regore uaf$w_f ' 

~ ee “Tilent3 - .jib Cjib$Sw_fillm2); 
ite CjibSw_fillm] = .uaf yan ate fillm); 
lass type NEQ jib$c_detached 


Cy ibsb _daytypes] = .uaf_record Cuaf$b pr inedeysi; 
ib$l"pdayhours] = .reStrict_vector [(.job_typ e-1)*2); 
ib. ib$lZodayhours] = restrict vector EC ob “type-1) #9441); 


phd = .ctl$gl_phd; ! Get address of PHD 


available_memory = MINU(.pfn$gl_phypgcnt - .sch$gl_freelim, 
‘sgn$gl— maxwscnt); 


phd Cphd$w_ wsquote) = .phd (phd$w_wslistJ-1 
MINU(.uaf_record Cuaf$l_wsquota], .available_memory); 


phd Cphd$w_ paeatents = .phd Cphd$w_wslist]-1 
MINU(.uaf_record Cuaf$l_wsextent], .available_memory); 


phd (phd$w_wsextent] = MAXU(.phd Cphd$w_wsquota],.phd Cphd$w_wsextent]); 
phd [phd$w_wsauth] = .phd Cphd$w_wsquota); 
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127808-1382 a BEY: LOGIN.SR BRCIIN NITUSER.B32;1 (4) vO4 
; 646 973 | ; 
: ote are we Cphd$w_wsauthext] = .phd Cphd$w_wsextent); : 
: 649 097 d Cphd$w_ dfwsent] = MINU(.phd Cohd$w,wsauth], ; 
; 650 0977 phd Cphd$w "Oslist]=1 avyete record Cuaf$l_dfwscnt]); : 
; 651 0978 a Cjib$t poflent] = Jib Cjib$l 3hef $ 
3 626 0979 yar. record uate <b¢ftquots) - a Cjib$l_pgflquota]); 3 
: $2? 444 jib Cjib$l _potlquota -uaf_record Cuaf$l_pgflquota : 
: 655 41 pnd phd$w_astim] = .uaf ghecore Cy af$Sw_astim); : 
>; 656 098 pcb$w_astcnt] = .uaf grocers ty tua tS sestind; : 
; 657 Bone if ib$Sw_tqlm]_= .uaf yrecord io $w stacntd; 3 
; 658 985 ib Cjib$Swotaqcnt]_= .uaf record. af$u_tacnti; | ; 
; 659 0386 phd Cphd$l-cpulim] = .uaf_record Cuaf$l_cputim; 3 
; 660 998 is ib$Sl_-cpulim] = .uaf_record Cuaf$l— =chutind; ; 
; 661 0988 ib C)ib$wlenqcnt] = .uaflrecord Cuaf$w_enqim) : 
; 66 0989 +"(,jib Cjib$w “Enaen J - wie Cjib$Sw_enqlm]); § 
>; 66 0990 Hs £1 ibs enqim] = .uaf_record Cuaf$w_enqim 3 
; 664 0991 ib CjibSwishrfcnt] = .uaf_recor Gust Su shrfittm ‘ ; ; 
: 665 099 + T.jib fe $w shrfentd ~ ] hi Cjib$w_shrflim]); 3 
: 666 099 ib Cjib$Sw_shrflim] = wuat _record uatSw_sarti Lim); : 
; 7 0994 ib C)ib$lopbytlim] = .uaflrecord Cuaf$l=pbytlm ; : 
; 668 0995 ib $l_pbytcnt] = .uaf_record uat$l- _pbytlm : 
3 0996 ib C)ib$Sw_maxjobs) = .uaf_record Cuaf$w_maxj jobs4; 3 
3 ort bad ib ChibSwimaxdetach] = .uaf_record Cuaf$w_maxdetach); : 
: 672 0999 ! Tee ene cell exists in two places. The S$SETPRI system service uses F 
: 673 1000 2 ! the PCB cell but the PHD cell must exist forever because that is where $ 
; ore id 5! i the JPI item code believes that AUTHPRI is located. | : 
5 676 1005 2 pcb Cpcb$b_authpri] = .pcb Cpcb$b_prib]; ! Reset authorized priority ; 
; ore Ieee 2 bhd Cphd$b_authpri] = .pcb Cpcb$b_pribj; i... in both of its homes | : 

; t44 4 ; arb = .pcb Cpcb$l_arb); ! Get address of ARB | os 

: 681 1008 2 move_quad(uaf_record fuafsq. priv}. phd Cpha$q_authpriv]); | 2% 

: 682 1009 move_quad(uaf_record Cuaf$q_privJ, arb Carb$q_priv FE 3 

: oe? i3i9 move_quad(uaf_record Cuaf$q_def _privd, ctl$gq_procpriv); | : ’ 

: 685 1012 1 END; | : 

ci 

.EXTRN CTLSGL_PHD, CTLS$GL_WSPEAK | :1 

-EXTRN CTLSGLIVIRTPEAK | 31 

-EXTRN CTL$GO_PROCPRIV 37 

-EXTRN PFNSGL_PHY NT gf 

-EXTRN SCHS$GL~ ~FREELIM, SGNSGL_MAXWSCNT | : : 

OOFC 0U000 INIT_KERNEL | :1 

“WORD Save _R2.R3,R4,R5,R6,R7 ; 0859 | 4 

57 4444444 0 9€ 4000 MOVAB SGNSGL_MAXWSCNT, R7 3 3 7 

52 0000 it 0 00 3000 MOVL UAF _RECTORD ; 0919 3: 7 

00000006 D4 00010 CLRL = CTLSGL_WSPEAK ; 09¢¢ 71 

x BHESSSSS HB Banis AEBS H Pha Bel |e 

55 0080" ce DO 0002s MOVE 128¢PCB), 1 0936. 3 


pa 
' 
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14-Sep-1984 12:41:06 LOGIN. SRCJINITUSER.B32;1 
GLOBAL ROUTINE init cli: NOVALUE = 
' =o 
; Initialize the CLI by mapping it into P1 space and 
: iby up the communication region. The logical 
' names PROCI“-N are defined to pore ty initialization 
command procedures that the CLI should execute. 
: Inputs: 
i clicname = Address of descriptor of CLI name 
' tabTe_name = Address of descriptor of command table 
uaf_record = Address of UAF record for user, if any 
! Outputs: 
None 
BEGIN 
BIND ; 
dcl_string = UPLIT BYTE('DCL"); 
LOCAL 
restricted_user; !True if defcli/captive in pl or uaf 
} Setup fields of the PPD communication region 
IF .uaf_record NEQ 0 ! If UAF record valid 
THEN 
BEGIN 
IF .uaf_record Cuaf$v_disctly] Bhi gtrldy inigiatty disabled 
OR .uaf_record Cuaf$v_captive] ! (CAPTIVE implies disable ctri/y 
THEN ppd Cppd$v_noctly] = true; : then indicate that to CLI 
' 


F .uaf_record Cuaf$v_captive] 


v : Prepesate the captive bit 
Nets ppd (ppd$v_captive] = true; Pp 


to PPD communication region 


restricted_user = (IF .uaf_record NEQ 0 
THEN (.uaf_record Cuaf$v_defcli 


} 
OR {_record Cuaf$v_captive]) 
tsei POSITION(uaf$v_defcli)] 
TPOSITI i 


ua 
ELSE C.ctl sgl uaf_flags 
OR .ctl$gl_uaf_flags ($81 ON(uaf$V_captive)])); 


' 
Setup system-wide command procedure, defined by logname SYS$SYLOGIN 


IF NOT .subprocess 
THEN 
BEGIN 


LOCAL 
buffer: VECTOR (128,BYTE], 
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VO4~006 180-1986 13:41:06  LROGIN. SRCTINE TUSER B Soot se 8 “voi 

> 744 1070 desc: : VECTOR fe. : 

; oe? 197) trninm_item_List: BLOCK (C1*5+1,LONG); ! Item List for 1 item 

> 747 1978 trninmitem_ListlO, 0.16.0) = (desc(O] = ZALLOCATION(buffer)); ; 

: 748 1074 trninm_item_listl0,16,16,0) = lnm$_string; | Fetch name's value string 

; 749 1075 trninm_item_listli, 8-3 8 = (des ae = buffer); 

; 750 1076 trninm_item_Llist ¢° -3¢.0) = descl0); 

: 63! See trninm_item_listl3, 0,32,0] = 0; 

: Fag P 1079 IF STRNLNM(TABNAM = ZASCID ‘LNMSSYSTEM TABLE’, 

; 754 P 1080 3 LOGNAM = ZASCID ‘SYSS$SYLOGIN', 

s io P 1081 3 ACMODE = UPLIT(psl$c_exec), 

; re Me & ITMLST = trninm_item_List) 

2° te 1083 3 EQL ss$_normal 

> 758 1084 3 THEN 

; 759 1085 3 setup_login_proc (desc); ! Tell CLI to execute it 

: 760 1086 3 

: 761 1087 2 END; 

° r6¢ 1088 2 

; £7 1089 2! a 

: 764 1090 2 ! If not a subprocess, setup the initial command procedure to execute. 

; 765 1091 § : 

; 766 18 

; 767 1093 2 IF .com_name (0) EQL 0 ! If no command procedure to execute 

: 768 1094 § AND NOT .com_negated ! and not explicitly negated, 

; 769 1095 AND .uaf_record NEQ 0 ! and if UAF record valid, 

: 770 1096 2 THEN 

s ri 1097 3 BEGIN : 

: 772 1098 3 com_name [1] = uaf record CSBYTEOFFSET(uaf$t_lgicmd)+1,0,0,0); 

; ee + 4 3 com_name [0] = CHSRCHAR(uaf_record Cuaf$t_lgicmd]); 

3 rs 1101 ; IF .com_name [0] EQL 0 ! If no default in UAF 

: 776 1136 3 THEN 

: 777 1103 4 BEGIN 

; 778 1104 4 com_name [1] = UPLIT BYTE(*LOGIN'); 

; 779 1105 4 com_name [0] = 5; 

: 780 1106 3 : 

; 781 1107 2 END; 

: 782 1108 2 : 

3; ves 1109 2 IF .com_name (0) NEQ 0 ! If user has login procedure, 

: re aniy § < AND NOT .subprocess ! and not a subprocess 

; 786 1112 2 setup_login_proc(com_name) ; ! Tell CLI to execute it 

3s 787 1113 § 

; 788 1114 : 

; «6789 1115 2 ! Get the name of the CLI and tables to mop; If /CLI or /TABLE was 

; 790 1116 2 ! specified on the username prompt, then cli_name or table_name will already 

: 791 1117 ! have initial values. 

; 79 1118 : 

: 79 1119 

: 794 1120 : ; ; : i 

: 795 1121 ! If no cli specif ted. and not (captive or defcli), and image activator 

; 36 1158 gave us a cli in cmedata, then use it. 

; 798 1124 2 IF .cli_name (0) EQ. 0 'If no cli name specified 

; 799 1482 AND NOT .restricted_user : ; 

; 800 1126 AND (.ctl$ag_cmedata [0] NEQ 0) ‘And $Simgact stored cli name 
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THEN 

BEGIN 
cli_name £9} 
cli_name (1 
END; 
lf we don't have 


clilname (1) : 
IF .table_name 
THEN 


BEGIN 
table_name 
table_name 
ND; 
END; 


we have a UAF 
D (.cTi_name (0) 


BEGIN 

cli_name £9} = 
cli_name (1) = 
IF .table_name 


BEGIN 
table_name 
table_name 


END; : 


we don't have 


BEGIN 
cli_name [0] = 


IF .cli_name CO] EQL 0 
wl -restricted_user ! and user can specify cli 


OR .restricted_user) 
HEN 


u 
COJ-EQL 0 = 
OR .restricted_user 

THEN 


, restricted_scor 


$ag_cmedata [ 


ctl 91; 
tl$ag_cmedata (1); 


a CLI name yet then get CLI and tables from spawn info. 

! If no CLI has been specified yet 

! then get it from spawn information 

-ctl$gt_spawncli (0); 

eg tsa 5 week C1); eae 

0) Eat ! If no tables have been specified yet 
then get tables from spawn, too 


0] 
1) 


BEL Set speunteple C0]; 
ctl$gt_Spawntable [1]; 


record, but not a CLI or table name yet, or the UAF default 


' 
i if 
CLI flags are set, then get the CLI and tables from the UAF record. 
iF .uaf_record NEQ 0 
AN 


! If the UAF record is valid — 

EQL 0 ' and no CLI has been specified a 
: or we must use the default CL 

! Then get the CLI from the UAF 


ofst defelid, 0; ,BYTEI; 

If no tables have been specified yet 
' or we must use the default CLI 

Then the tables from the UAF too 


CO] = .VECTOR Cuaf_record Cuaf$t_clitables], 0; ,BYTE); 
C1) = uaf_record Cuaf$t_clitables] + 1; 


-VECTOR Cuaf_r d Cu 
af_record (Cua de ¢ 
i 
! 


a CLI] name yet, or we don't have a UAF record but the UAF 


If 
flags in Pl space indicate that we must use the default CLI, then get both 
CLI and tables from P1 space. 


cli_name [0] EQ. 0 
-uaf_record EQL % 
AND T 


If no CLI has been specified yet 
; or, 

! There is no UAF record 

but, P1 renee specify 


user is restricted 


! Then get CLI from P1 space 
-ctl$gt_cliname [0]; 


~ 
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: 858 1184 ; cli_name (1) = £1 Sot cliname (1); :] 
; 1185 IF Ttable_name (0) Eat 0 ! If no tables have been specified yet 3 
: B60 1186 4 OR ¢ i “or, 2] 
; 861 1187 4 .uaf_record EQL 0 i There is no UAF record 7) 
; 86 1188 AND T ' ' but, Pi flags specify : 1 
3 86 1189 -restricted_user i that user is restricted :] 
> 864 1190 ) : 1 
; 865 1191 4 : 1 
; 866 1198 3 THEN ! Then get tables from P1 space too : 1 
; 867 1193 4 BEG! :] 
; 868 1194 4 table_name (0) = Set tablename [0]; :] 
; 869 1195 4 table-name [1] = fablename (1); :] 
; 870 1196 END; : 1 
; 871 1197 END; : 
3; 87 1198 : 1 
; 87 1199 ' :] 
> 874 1200 : If we still don't have a CLI yet, the use DCL as the final default. Or, : 1 
; a7? 34 if this is a network process, force DCL, since network requires it. : } 
s 677 1508 if (.cli _name(0) EQL 0) Sy no CLI has been specified yet : 1 
; 878 1204 OR .pcb_ StsLSBI TPOSITION(pcbSv. netwrk) :] 
; 879 1205 THEN ! Then use DCL as the final default : 1 
; 880 1206 BEG : 1 
; 881 1207 cli_name (0) = 3: : 
3 +4 1208 clizname [1] = strin ng: 3 
; 88 1209 IF “pcb stst$B11P0S TION Nip EbSv. netwrk)] ! Use default tables if network 3 1 
; 884 1210 HEN table_name (0) = : 1 
3 885 1211 2 END; : 1 
; 886 Ist¢ s ) 
; 887 121 Qe! : 1 
; 888 1214 3 ! Ensure that the CLI — + name is prefixed with a 4 Sag name. We do 3 1 
: B80 $12 not want the CLI image to be logical name translatable : . 
; 891 1217 IF CHSFAIL (CHSFIND_CH (.cli_name(0J, .cli_name(1], ':")) : 1 
; 892 1218 THEN 71 
: 893 1219 BEGIN : 1 
; 894 1220 CHSCOPY (.cli -nenelO]. .cli_nameC1], ° ', : 
; 895 1221 0-711 name Buf fer(i{}); 31 
: 896 \ss¢ CHSMOVE (11, uPLir® eye jy SSSYSTER: "S, cli _name_buffer); : 7 
; 897 122 cli_name(0) = .cli pi %™ + 11; .) 
; 898 1224 cli_name(1) = cli_name ye R. 3 1 
; 899 1225 END? : 1 
: 900 1226 37 
: 901 isse ' “S| 
; 902 1228 : If no CLI tables name is yet specified and the CLI name is for the form 3 1 
: 903 1$¢2 ! “SYSSSYSTEM: cliname’’, then create a CLI tables name of the form | 
; B08 16a : “‘clinameTABLES"’. : 
: 906 1 3 IF -tapie _name £9968 EQL 0 ! If no CLI tables name yet gs 1 
; 907 123 AND . Rane C0] a, i “and CLI na ; : 1 
; 908 1234 AND ehseores ° A ge e C1), ' starts with "*SYSSSYSTEM:' 31 
: 909 1235 iH . UPLIT. BYTEC' SYSSSYSTEM:")) $1 
; 910 1 $9 THEN le 7 : 1 
: 911 123 BEGIN ' Form ‘'clinameTABLES 3 1 
: aig 1$38 CHSCOPY(. ig name (0) - 11, .cli_name (1) + 11, 3s 1 
; at ‘$25 6.. vee BYTE('TABLES'), 
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vol-06e 13-308- 1382 °8 41:06 LOGIN SRCVINITUSER.B32¢1 ° (33 
; 915 1241 80, table =nene., buffer 

3 318 1 ¢ table_name = Tcli_name £63 - 11 + 6; 

; 91 124 table_name [1] = tablé_name_buffer; 

; 918 1244 D; 

; 919 1245 

; 920 1 6 ! 

: 921 124 ! Map the CLI image into the control region. 

; 9 ¢ 1248 ' 

; 9 1249 

: ¢ : 29 SCMEXEC(ROUTIN = map_cli); ! Map the CLI image 

: 926 1252 1 END; 


-PSECT SPLITS,NOWRT,NOEXE,2 


4C 43 44 p00i9 P.AAC: ony \DCL\ : 
4C 42 41 56 SF 40 45 54 53 59 53 26 GD GE rt’ poo P.AAE: .ASCII \LNMSSYSTEM_TABLE\ : 
010E0010 00024 P.AAD: .LONG 17694736 : 
00990090" 00028 “ADDRESS P.AAE ; 
00 4E 49 47 GF 4C 59 53 24 53 59 § Boot P.AAG: .ASCII \SYSS$SYLOGIN\<0> é 
010E000B 00038 P.AAF: .LONG 17694731 : 
00000000" 0003c¢ “ADDRESS P.AAG : 
00000001 00040 P.AAH: .:LONG 1 : 
of 49 47 GF rs 00044 P.AAI: .ASCII LOGIN\ 3 
3A 4D «45«54~=C*SB iD SS oe 33 3 SS 00049 P.AAJ: .ASCII \SYSSSYSTEM:\ : 
3a 4D 45 «554 «53 «659:«553 «(24 «653 «59: «653 «(00054 P.AAK: ASCII \SYSSSYSTEM:\ : 
53 45 4C 42 41 54 OQOOOSF P.AAL: ASCII \TABLES\ 3 
DCL_STRING= P.AAC 
SYSSTRNLNM, SYSSCMEXEC 
-PSECT S$CODES,NOWRT,2 
OFFC 00000 -ENTRY ait. CLI, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,-; 1013 | 
5B 000000006 00 9€ 00002 MOVAB COM_NAME, R11 ; 
5a 000000006 00 9E 00009 MOVAB TABCE_NAME, R10 : 
59 000000006 00 9€ 00010 MOVAB ch NAME, ; 
2f FF68 CE 9E 00017 MOVAB -152(SP), : 
50 000000006 g D0 9001 MOVL  UAF_RECORD, RO > 1044. 
D4 000 CLRL R2 ~ } 
5 D3 000 TSTL RO ; 
20 13 00027 BEQL 2$ ; 
38 D6 00029 INCL  R2 : 
51 01D4 C 43 000 MOVAB 468(RO), R1 : 1047 
04 61 € 900 BLBS (R1), 1$ ; 
2 61 03 a 00 BBC #3, (R1), 2% > 1048 
000000006 00 01 88 0037 1$ BISB2 #1. PPD+) > 1049 | 
61 03 FI 00 BBC #3. (RI), 2% + 1050 
000000006 09 08 8 004 BISB2 a8. PPD+2 > 1051 | 
1 E9 00049 2% BLBC R2, 3$ > 1054 
52 01D4 co 01 QO1 EF Opes EXTZV #i, #i, 268th}. RESTRICTED_USER ; 1056 
51 01D4 = 0 01 03 EF 0005 EXTZ2V #3. #1. 468(RO). RI : 


= 


3 
rhese -1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 24 INI 
1a-8ep-19 4 96:01 Ne LOGIN. SRCJINITUSER.B32;1 ° (83 v04 
52 51 8 OSA BISL2 R1, RESTRICTED_USER : :] 
15 11 0005p BRB 4$ + 1055 : 
52 000000006 00 1 01 EF oF 3$: EXTZV #1, #1, CTLSGL_UAF_FLAGS, RESTRICTED_USER : 1058 7] 
50 000000006 00 1 3 EF 00068 EXTZY 3, #1, CTLSGL-UAF-FLAGS, : 2] 
2 0 cB 0071 BISL2 R RESTRICTED_USER : 37 
44 000000006 00 i 0074 4$ BLBS SUBPROCESS, 5$ + 1064 ; 1 
10. AE 80 F 9A 00078 MOVZBL #128, DESC : 1073 2) 
gf 000200 0 F p0 000 9 OVL #131200, TRNLNM_ITEM_LIST : ; 1 
1 ag 9E 000 MOVAB BUFFER RO 3 1075) : 1 
16 AE 50 00 00088 MOVL RO, DESC+4 : | 37 
04 AE 50 DO O008F MOVL RO, TRNLNM_ITEM_LIST+4 : 3 3 
08 AE 10 AE 9E 90095 MOVAB DESC, TRNLAM_ITEM LIST +8 : 1076 | 3] 
OC AE 04 0009 CLRL TRNLNM_ITEM_CIST+T : 107 ; 3 
5E 0D 00098 PUSHL SP : 1082) 3 1 
0000' CF 9F 0009D PUSHAB P.AAH : | 31 
0000" CF 9F OOOA1 PUSHAB P.AAF : 31 
0000" CF 9F OOOAS PUSHAB P.AAD : 31 
7E D4 B00Ag CLRL -(SP) : 3; 7 
000000006 00 g> FB OOOAB CALLS #5, SYSSTRNLNM : : 1 
01 0 D1 00082 CMPL RO, #1 : 1083. ; 
08 12 00085 BNEQ 5$ : | ‘4 
10 AE 9F 00087 PUSHAB DESC : 1085 3 
0000v CF 01 FB OOOBA CALLS #1, SETUP_LOGIN_PROC : i] 
6B D5 OOOBF 5$ TSTL  COM_NAME ; 1093) 2] 
2c 12 00001 BNEQ : 31 
25 000000006 00 €8 000C3 BLBS COM_NEGATED, 6$ : 1094 31 
000000006 00 D3 OOOCA TSTL UAF ~RECORD : 1095) 3% 
1D 13 00000 BEQL ; : 1 
50 000000006 00 »p0 00002 MOVL §_UAF_RECORD, RO : 1098 | 31 
04 AB 0005 CO 9E 00009 MOVAB 213TRO), COM_NAME+4 : : 1 
68 0004 CO 9A 9000F MOVZBL 212(RO), COMTNAME : 1099 71 
09 12 O00E4 BNEQ  6$ : 1101 31 
04 AB 0000' CF 9E 000E6 MOVAB P.AAI, COM_NAME+4 > 1104 :1 
6B 05 69 OOOEC MOVL #5, COM NAME + 1105) 31 
6B D3 OOOEF 68: TSTL COM_NAME : 1109 | 31 
OE 13 OOOF1 BEQL 7$ ; 71 
07 000000006 00 €E8 000F3 BLBS SUBPROCESS, 7$ : 1110 31 
5B DD OOOFA PUSHL 11 : 1112 3:1 
0000v CF 01 FB OOOFC CALLS #1, SETUP_LOGIN_PROC : : 1 
69 D5 00101 7$: TSTL CLI_NAME > 1124 | 31 
1A 12 00103 BNEQ &8§% : 21 
17 52 £8 0105 BLBS RESTRICTED_USER, 8$ : 1125 31 
000000006 00 93 0108 1s16 CTLSAG_CMEDATA > 1126 | ; } 
69 000000006 86 9A O96 MOVZBL CTLSAG_CMEDATA, CLI_NAME ; 1129 :1 
04 a9 000000006 00 4 00117 MOV CTLSAG-CMEDATA+1, CCI_NAME+4 : 1150) 3 7 
9 D5 OO11F 8S: TSTL CLI_NAME + 1135 
5 iF 01 1 BNEQ 9$ : 

22 2 3 123 BLBS §_RESTRICTED_USER, 9$ : 1136 | 

69 900000006 A 00126 MOVZBL CTLS$GT_SPAQNCLI., CLI_NAME > 1139) 

04 a9 000000006 00 9 1 MOV CTLSGT-SPAWNCLI+1, CCI_NAME+4 3 1140) 

6A D 1 TSTL TABLE _RAME > 1141 

F 12 001 BNEQ 9$ ; 

6A 900000006 9A 00139 MOVZBL CTLSGT_SPAWNTABLE, TABLE_NAME > 1144 | 

04 AA 8008 O806 9E 00140 MOV CTLSGT-SPAWNTABLE+1, TABCE_NAME+4 3 1145 | 

50 00006 d p oi 9$: mov yar RECORD. RO : 1153) 
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; Routine Size: 597 bytes, 


Routine Base: 


? 
Pia | 
CF 
6A 06 
AA 000000006 ” 


0000v CF 
00 02 


OnMwVOO MOO 
Sow semmnm oro 
pope fe fololololololo) 
pofelolelololelolol=) 


SCODES + 0306 


7:01:14 AX-11 Bliss-32 V4.0-742 
741:06 LOGIN.S RCIIN IN TUSER. B32;1 
R7, R6 
R7, RB 
#6, P.AAL, #32, RB, (R6) 
6(R7), TABLE_NA 


ME 
~(3F)- * NAME BOFFER, TABLE_NAME+4 


CLI 
i SYSSCMEXEC 


Sz | 


nm i a a a — ss — as — 9 ss 9 4s 9 ss is — — Ls 


3 

INITUSER 18-52 1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 27 IN] 
04-008 1 ~3007 138% 96:01:48 LOGIN. SRCJINITUSER.B32° 1 . (3s v04 
; 3 8 } ; ! ROUTINE setup_login_proc (desc): NOVALUE = : } 
: 930 1255 1 fe i] 
; 931 1 gi} 7 
; § 4 1 1 ! Setup a login command procedure, to be executed initially 4 
BC 1 28 1 | before starting interactive session. The CLI will execute 4 
; 4 : 23 : the procedures in the order they are give to this routine. 74 
: 936 1261 1! Inputs: : 1} 
; 937 1 6¢ 1} i] 
; 958 12635 1 ! desc = Address of descriptor of command procedure : 1 
; 939 1264 1! sf 

> 940 1265 1 ! Outputs: ‘ 
: 941 1266 1! : 1 
; 92 1267 1 None :] 
: 94 1268 1 la<< : 1 
> 944 1269 1 i] 
; 945 1270 2 BEGIN 2] 
> 946 1271 2] 
> 947 1 re LOCAL 7] 
; 948 1273 2 Logbuf : VECTOR (8,BYTE], ! Buffer for logical name 'PROCA' :] 
: rhs 1375 § logdesc: VECTOR 2); ! Descriptor of above buffer : : 
: 951 1276 2 Logdesc fo) 2 5; ! Setup descriptor of logical name i] 
; 328 iste logdesc [1] = logbuf; . 4 
: Bee +44 § CHSMOVE(4, UPLIT BYTE('PROC'), logbuf); ! Create logical name string : : 
: 326 st § ppd Cppd$b_nprocs]) = .ppd Cppd$b_nprocs] + 1; ! Increment # of login procs ; : 
: 44 1288 § logbuf (4] = '0' + .ppd Cppd$b_nprocs]; ! Set procedure index into Logname : : 
: 960 1285 2 create_logical(logdesc, ! Create PROC# = Login file : ‘ 
: 961 1286 2 -desc, 4 
; 962 1287 2 ps\$c_user); 4 
; 963 1288 2 ze 
: 964 1289 1 END; 4 
:1 
3 7 
-PSECT $PLITS,NOWRT,NOEXE,2 : } 
43 4F 52 50 00065 P.AAM: .ASCII \PROC\ : :1 


-PSECT $CODE$,NOWRT,2 
0004 00000 SETUP LO6In PROC: 


ORD Save R2 : 

32 000000006 OP es 00008 vty 1 Se Si 

05 od 0000C PUSHL , F 

04 AE 08 AE i 00 MOVAB LOGBUF, LOGDESC+4 ; 

08 AE 0000" CF 01 MOVL P.AAM, LOGBUF ; 

6 0001 INCB pep : 

OC AE 62 81 0001B ADDB3 #48, PPD+28, LOGBUF +4 ; 


vO4-000" 


ATE_LOGICAL 


RET 


0000v CF 


Routine Base: S$CODES + 0558 


46 bytes, 


: Routine Size: 


| 
| 
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SSESSE 


sss 


NMC OOO fwhr—-OCV0e~ 
ee ee ed ed ed 8 dd dd 


a a kt a a ts a tt ss ss 5 


SOOOCoCoOCooCooooo 
RORY — = tt ot 


ROUTINE map_cli: NOVALUE = 


' 
; Map the CLI into the control region. 


Access mode is executive. 
cli.name = Address of descriptor of CLI name 


Outputs: 
None 
BEGIN 
OWN 
image_name: VECTOR(2], ! Image's name descriptor 
image_filespec: VECTORE2) ! Image's filespec descriptor 
nove header_buf: VECTORC128); : image header from $IMGACT 
SASSUME (ZALLOCATION( image_header_buf) ,£QL,512); 
ROUTINE extract_image_name : NOVALUE = ! Subroutine to extract fnege 2 
oer ! filespec and name after SIMGACT 


len, 
: REF BLOCKC,BYTE); 
J = 0; 


= 0; 
IF (ptr = .image_header_buf(1]) EQ. 0 
THEN RETURN; 

image_nane(] = > (pert itdsa_curprog)) <9 16>; 
image_name(l1] = .(ptr ifd$q~curprog])<32, 32>; 
move quad(image_name, image filespec); 

F (Ten = .image_name(0J) EOL 0 

THEN RETURN; 
per = ,image_name(1]; 


chr: BYTE; 

chr = CHSRCHAR_A(ptr); 
F .che EQL ':* 

OR .chr EQL ‘J 

OR .chr EQL ‘>' 

THEN 


BEGIN 

image _nanet 
image_name(1) 
N + 

len = .len - 1; 

N 


E 
WHILE .len GTR 0; 
IF NOT CHSFAIL(ptr = CHSFIND_CH(.image_name(0], .image_name(1], '.')) 


WWE ERNIE SERRE ES BWW WWIII nonononononononony 2 2 
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inh tus R 16- ~$e0-1984 A ae AX=-11 BL 


ige-32 v4.0-742 Page 30 
1h-Sep-1984 12:41:06  CLOGIN. SRCJINI 1 ae 


: 1023 1347 3 THEN 
> 1026 1348 4 BEGIN 
; 1025 1349 4 image_name(0) = HSDIFEC. tr, .image_name(1)); 

: 1026 1350 4 image_filespecl0 CHSDIFF(-ptr, . image_ filespecl 13): 

>; 1027 1351 3 END; 

; 1028 1352 2 END; 


»PSECT SOWNS,NOEXE,2 
00000 IMAGE ae 
00008 IMAGE ~FILESPEC: 


00010 IMAGE HEADER BUF : 
LKB = 512 


-PSECT $CODES,NOWRT,2 
000C 00000 EXTRACT oe NAME : 


WOR Save R2,R3 : 1315) 
53 0000" CF 9€ 00002 MOVAB  IMAGE_NAME, R3 : 
63 D4 00007 CLRL IMAGE : 1320) 
08 A3 D4 00009 CLRL IMAGE _F ILESPEC 3 1321) 
51 14 «AS bg 0000 MOVL IMAGE “HEADER_BUF+4, PTR : 1322) 
4€ 13 00010 BEQL $ ; 
63 14 Al 3C 00012 MOVZWL 20(PTR), IMAGE_NAME 3 1324) 
04 A3 18 Al 00 00016 MOVL en PIR) 2, IMAGE NAME +4 : 139 | 
08 a3 63 7D 00018 MOVa IMAGE _N INKGE _FILESPEC : 1326 
52 63 DO OOOTF MOVL IMAGE “NAME! LEN ; 1327) 
3A 13 00022 BEQL $ : 
51 04 A3 00 00024 MOVL IMAGE sNAME*4, PTR : 1339 
50 81 90 00028 1$: MOVB (PTR CHR 3 1334 
3A 50 91 00028 CMPB sR, ade > 1335 
0B 13 b00e BEQL : 
5D soa 50 91 900 0 CMPB CHR, #93 3 1336) 
05 13 00034 BEQL : | 
3 50 91 00036 CMPB CHR, #62 : 1337 
08 12 00039 BNEQ : 
63 FF A2 9 00038 2$: MOVAB <=-1(R2), IMAGE_NAME : 1340 
04 Ad 51 D 990 : MOVL PTR, IMAGE_NAME+4 : 1341. 
Ee 52 =F 43 3$ SOBGTR LEN. 1$ : 1343) 
04 =«B3 3 3A 90046 LOCC #46, IMAGE_NAME, @I1MAGE_NAME+4 : 1346. 
2 12 00048 BNEQ 4$ : 
51 04 00040 CLRL R1 : 
51 DS OOO4F 4$: TSTL PTR : 
0B 13 00051 BEQL 3 : 
63 51 06 as C 9033 SUBL IMAGE_NAME+4, PTR, IMAGE_NAME > 1349. 
08 A3 51 OC A ¢ 058 SUBL IMAGE ~FILESPEC+4, PTR, IMAGE_FILESPEC > 1350 | 
4 0005E 5$: RET > 1352) 


; Routine Size: 95 bytes, Routine Base: $CODE$ + 0589 


SS = - — - . ‘ | een 


Geek. 
| 
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| 
| 
| 


4 
INI TUSER 1$-se -1984 02:01:14 AX=11 Bliss-32 ¥4.0-742 Page 31 INI 
‘vOl-066 122888= 138s RELY: LOGIN. SRCJINITUSER.B3251 . 3) v04 
> 1029 1353 :] 
: 1080 1354 3 BUILTIN FP; : 1 
; 1031 1355 3} 
; 10 § 1 28 EXTERNAL P 3] 
; 19 ; 27 exe$gl_clitabl; ! SYSGEN parameter CLISYMTBL : } 
; 1035 1359 2 BIND 3} 
3 1338 : re clisymtbl = ppd Cppd$q_clisymtbl]: VECTOR; ! Reference as 2 longwords ° : 
; 1038 1 6¢ LOCAL | 7] 
; 1039 136 status, : 1 
; 1040 1364 arglist: | VECTOR (2). ! Arg List to LGISPROTECT CLI | i] 
; 1044 65 range: VECTOR (22; ! Range of CLI symbol table | . 
: 1908 1369 .fp = handler; ! Enable condition handler : 1 
> 1044 1368 | 7] 
: 1045 1369 2! | : 1 
3: 1046 1370 ! Change the page protection on the CLI and its tables to supervisor : 1 
; 1047 1371 2! write (where writable) and user read, supervisor owned, to prevent i] 
; igee 1378 § , the user from modifying the CLI. | : : 
; 1050 1374 2 status = tote" merge(cli_ name ! Map CLI into control ceyren | : 1 
> 1051 1375 2 XASCID *SYSSSYSTEM: EXE’, i Default filespec for CL | : 1 
3 1032 1376 2 image_header_buf, ' Return image header buffer : 1 
3 105 1377 2 ctl$ag_climage); ' Return address range | : 1 
: 1054 1378 2 7] 
: 1055 1379 2 IF NOT .status ' If error detected, 7] 
> 1056 1380 2T 7. i] 
; 44 136) § SIGNAL _STOP(Lgi$_clifail,1,cli_name,.status); ! then signal fatal error : : 
; 1059 1383 2 arglist(0J = 1; : 3 f 
; 1060 1384 2 arglist(1) = ctlSeg climage; | ; ; 2), 
> 1061 1385 2 status = SCMKRNL (ROUTIN = [gi$protect_cli, ARGLST = arglist); | : 
; 1062 1386 2 IF NOT .status i] 
> 106 1387 HEN ¢ 1, 
3 1064 1388 SIGNAL_STOP(lgi$_cliprot,0,.status); i] 
> 1065 1389 | :] 
3 1066 1390 é extract image name(); ! Extract image name :] 
> 1067 1391 2 CHSMOVET(ct$gt_cliname([0] = .image_mamel0J), ! Load :] 
: 1068 139¢ é . image_name( 1) (“image name :] 
> 1069 139 ctl$gt~cliname(1)); i as ASCIC i] 
: 1070 1394 2 | i] 
; 1071 1395 2 IF .table_mame(0) NEQ 0 | 7] 
; 1078 1396 THEN : : 
: 107 1397 BEGIN : 
: 1074 1398 status = Lib$p1 pores tees e Mame, ! Map command table into control region 21 
> 1075 1399 ZASCiD "SYSSSHARE: .EXE'? | Default filespec for tables :] 
; 1076 1400 image_header_buf, ' Return image header buffer | :] 
; 24 1631 ctlbag_clitaBle); ! Return address range : : 
; 1079 1408 IF NOT .status ! If error detected, 7] 
; 1080 1404 THEN : 1 
; 1081 1405 FSH FTO th 05S 6} itp Fetl. 1 table_nane,.etetuss ! signal fatal error 3; 1 
; 1082 1406 argiistli]'= ctlSag clitable; : 1 
: 108 140 status = SCMKRNL (ROUTIN = (gi$protect_cli, ARGLST = arglist); : 1 
; 1084 1408 IF NOT .status : i 
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| 
j 
| 
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45 58 45 2€ 


00 45 58 45 


dD 4 
16-Sep-1984 96:01:18 AX-11 Ol issase V4.0-742 
14-Sep-1984 12:41:06 LOGIN. SRCJINITUSER.B32;1 
1319 SIGNAL_STOP(Lgi$_clitblprot,0,.status); 
141 extract_image_name(); ! Extract image filespec 
1218 CHSMOVET(cttSot tablename(0] = .image_filespec 013; : Load 
1414 . image_filespec '" image filespec 
1415 ctl$gt_tablenamel14); i as ASCIC 
1416 END; 
1417 
1418 } 
ne Create the CLI symbol table space. 
1421 2 status = SEXPREG(PAGCNT = .exe$gl_clitabl, 
14 ¢ RETADR = range, 
14 ACMODE = est c_super, 
12 ¢ REGION = 1); 
1426 IF NOT .status 
1427 2 THE 
Mr § SIGNAL_STOP(Lgi$_clisymtbl, 0, .status); 
1286 2 SCMKRNL(ROUTIN = set_pl_base, ! Set new base of control region 
103) § ARGLST = .range (1); 
1433 2 clisymtbl [0] = .range [0] - .range [1] + 1; ! Setup descriptor of storage 
1434 2 clisymtbl [1] = .range (1); 
1435 2 
1436 1 END; 
-PSECT SPLIT$,NOWRT,NOEXE,2 
00069 -BLKB 3 
3A 4D 45 54 53 59 53 24 53 59 33 Bonge P.AAO eASCII \SYSSSYSTEM: .EXE\<0> 
O10EQOOF QOO07C P.AAN: .LONG 17694735 
00990009" 00080 -ADDRESS P.AAO 
2E 3A 45 52 41 48 53 24 53 59 3a ard P.AAQ: .ASCII \SYSS$SHARE: .EXE\<0><0> 
Q1OEQO0E 00094 P.AAP: .LONG 17694734 
00000000* 00098 -ADDRESS P.AAQ 


~EXTRN 
»PSECT 


EXESGL_CLITABL, SYSSEXPREG 
SCODES,NOWRT ,2 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


000 
5B 000000006 00 9E 90002 OVAB CTLSAG CLIMAGE, R11 
2 00000008 $0 3f SO MOVAB SYSSEAKRNE. Rio 
58 0000' i 9E Sot MOVAB IMAGE_HEADER_BUF, R8 
57 000000006 3 O01¢ OV LIBSSTOP, R7 
ab 000000006 $6 $0 6 NOVA NANOLER (FP) 

Gann, BF ge Opage SHR RCRD 
000000006 60 9F 00035 PUSHAB CLI_NAME 


roe 


Pete Se te Oe Be Be Be 


: 1290 


= | 


2 


Sete Se ee Ce Ge Se Ge Se Se Se Gee 
St i 2 4 


| 
| 
| 
| 
| 
| 
| 


Se he rags SS pee 4 
“INI Tus R 15. scout 4 02:01:1 AX-11 Bliss-32 V 4,0 742 P 3 
e - s- age 
v04= 1en08- 1382 982214 LOGIN. SRCJINI TUSER.B3201 oe 3 
000000006 90 4 F 003 CALLS #4, L 188? _MERGE : 
0 DO 0004 MOVL RO, STA Tus” : 
6 £8 0004 BLBS = STATUS, + 1379 
6 DD 00048 PUSHL STATUS. + 1381 
000000006 00 9F O004A PUSHAB Ch NAME : 
or DD 0005 PUSHL # : 
000000006 8F DD 0005 PUSHL #LGIS$_CLIFAIL : 
67 04 FB 0005 CALLS #4, LIBSSTOP ; | 
08 AE 01 D0 0038 1$ MOVL #1. ARGLIST : 1383) 
OC AE 68 9E 0005F MOVAB CTLSAG_CLIMAGE, ARGLIST+4 + 1384) 
08 AE 9F 00063 PUSHAB ARGLIST : 1385 
000000006 0 OF 90066 PUSHAB LGISPROTECT_CLI : | 
9 FB 0006C CALLS #2, SYSSCMKRNL : 
56 50 00 0006F MOVL RO, STATUS : | 
0D 56 «EB 00072 BLBS = ST , 2s : 1386. 
56 0D 0007 PUSHL STATUS : 1388) 
7E 04 00077 CLRL. = =( SP) : 
000000006 8F DD 00079 PUSHL mCls cL CLIPROT : 
7 03 FB 0007F CALLS $STOP ; 
FFIA CF 00 FB 00082 2$ CALLS #0, EXTRACT. IMAGE _NAME : 1390. 
0 FO A8 DO 00087 MOVL IMAGE_NAME, : 1391, 
000000006 00 50 90 00088 MOVB. RO, CTLSGT.C CLINA ME ; 
000000006 00 FL. BB 50 28 00092 MOVC3 RO. @IMAGE “NAMES, CTLSGT_CLINAME+1 + 1393 
6A Dd. 00098 TSTL TABLE _NAME~ 3 1395) 
6A 13 0009D BEQL 5$ : 
000000006 00 9F 0009F PUSHAB CTLSAG_CLITABLE : 1398. 
58 DD OO0AS PUSHL R8 ; 
0000' CF 9F QOOA7 PUSHAB P.AAP Fy 
5A DD OOOAB PUSHL R10 : 
000000006 00 04 FB OO0AD CALLS #4, LIBSP1_MERGE ; 
56 50 DO 000B4 MOVL RO. STATUS : 
56 £8 00087 BLBS STATUS, 3$ + 1403. 
56 DD OOOBA PUSHL STATUS + 1405. 
SA DD 900B¢ PUSHL R10 : 
01 DD OO0BE PUSHL #1 : 
000000006 8F DD 000C0 PUSHL #LGI$_CLITBLFAIL : 
67 04 FB 000C6 CALLS #4, LIBS : 
OC AE 000000006 00 9€ 000C9 3s: MOVAB CTLSAG CLITABLE, ARGLIST+4 > 1406 | 
08 AE 9F 00001 PUSHAB ARGLIST : 1407) 
000000006 00 9F 000D4 PUSHAB LCISPROTECT CLI : | 
69 02 FB OOODA CALLS #2, SYSSCMKRNL ; 
56 50 DO 000DD MOVL RO. STATUS : | 
ih) 56 E8 OOOEO BLBS STATUS, 4$ > 1408 | 
36 DD OO0ES PUSHL STATUS : 1410. 
E D4 OO0E CLRL. = =( SP) ; 
000000006 8F DD O00E?7 PUSHL aL GIs CLITBLPROT : | 
67 03 FB OOOED CALLS #3, LYBSSTOP ; 
FEAC CF 00 FB S00F0 4$: CALLS #0, EXTRACT _IMAGE_NAME ; 1412, 
50 F8 A8 00 OO0FS MOVL IMAGE _FILESPEC, + 2 3 141 
000000006 00 20 90 00F9 MOVE. RO, CTLS$GT_TABLENAM ; | 
000000006 00 FC OoaB8 0 28 00100 MOVC3 RO. @IMAGE“FILESPEC+4, CTLSGT_TABLENAME+1  ; 1415 | 
01 DD 00109 S$: PUSHL #1 > 1424 
02 dD 0108 PUSHL ; 
08 AE 9F 00100 PUSHAB RANGE : 
000000006 00 od 00110 PUSHL EXE$GL_CLITABL : 
000000006 90 oe FB o116 CALLS #4, SYSSEXPREG ; 
0 pO 00110 MOVL RO. STATUS F 


Bo Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Ge Se Se Se Se Se Fe Se Se Se Se Se ee Se Fe Fe Se Se Ge Se Se Se Se Se Se Fe Se Se Se Se se Se Se Se Se se Bese Be Sean 


ou) 


0D § E8 
DD 
E 04 
000000006 Bf dD 
3 FB 
04 AE OD 
QO0OvV CF OF 
69 02 Fe 
50 6E 04 AE ¢ 
000000006 00 Q1 AO 9E 
000000006 00 04 AE ? 


; Routine Size: 336 bytes, Routine Base: S$CODE$S + 0SE8 


ooo 


jojlelelelelelelelolo oo) 
3 SS 


ae 


If: 


VAT S NWOO NVIWNO 


oa 
nr 


se 
eo- 
Sep- 


4 01:14 AX-11 Bliss-3 
1383 96:0: YISGIN. eRe INI 

BLBS STATUS, 6$ 

eat rans 

PUSHL #LGI$_CLISYMTBL 

CALLS #3, LIBSSTOP 

PUSHL RANGE+4 

PUSHAB SET Pt BAS 

CALL #2, SYSSCMKRNL 

SUBL RANGE+4, RANGE, R 

MOVAB 1(RO), CLISYMTBL 

MOVL RANGE+4, CLISYMTBL+4 


¢ V4.0=742 
USER.B32;1 


Page 


1238. 
1431. 


1433. 
1434 
1436 | 


| 
| 


2 —- 


1 
4 
1 
1 
1 
1 
1 
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nn nr. he 


| 4 
INITUSER 18-sep-19 4 02:01:14 AX-11 Bliss-32 V4.0-742 Page 35 
yoe-008 1228087138 953008 LOGIN. SRCVINI TUSER.B 3251 . (B} 
: GLOBAL ROUTINE execute_cli: NOVALUE = 
4 lace 
4 : 
: This routine is called to transfer control to the CLI 
Inputs: 
: Access mode is executive. 
; Outputs: 
None | 
BEGIN | 
BUILTIN FP; 
MAP FP: REF BBLOCK; ! Address of call frame | 
EXTERNAL LITERAL 
exe$c_cmstksz; ! # bytes after SCMEXEC frame to PC/PSL 
LOCAL | 
prev fp: REF BBLOCK, ! Address of previous frame : 
pcpst: REF VECTOR, ! Address of previous PC/PSL pair 
psl: REF BBLOCK; ! Address of previous PSL 


Change the page protection on the PPD structure to allow only supervisor 
mode write access for the protection of the CLI data storage. 


00 Od CD OD Od C9 C9 CD C9 09 NI NI SS SNS SSNS OPA AAA AAA OA MMIII BB BB BEEP PW 


OWONOU EWN 0 OONOAUE WIN — O OONO UNE WN 0 ODNAOU EWN OCONAUE WWI OWOOn 


set_ppd_prot, ! Set PPD page protection 


SCMEXEC(ROUTIN = 
ARGLST = prt$c_ursw); 


to the CLI entry point and set the PSL to supervisor mode. 


' 
Locate the PC/PSL in the SCMEXEC call frame and alter it to point 
i 


prev_fp = .fp Csf$l_save_fpJ; 


Get address of CMEXEC call frame 
pcpsl = .prev_fp + éxe$c_cmstksz; 


im P Point to PC/PSL after epee list 
pepst (0) = ,ct $ag_climage; Set PC to CLI entry poin 
psl = peps| Ci); Get address of PSL | 
Set access mode to supervisor 


pst Cpsl3v_curmod] = psi$c_super; 
psl pets -sereodd = palSc"puper: 


and previous mode as well 


WO DONO E WN OO OONOA NEW SO ODNAU ES AN (OO ODNOUE WN —“OOONOUS 


i Now, on exit from the SCMEXEC system service, control will be transferred 
; to the CLI in supervisor mode. 
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1h-Sep=1984 02:01:16 VAKett . ’ INT: 
eet) i ee Pe aoe 3) v04: 


GLOBAL ROUTINE map_imgact: NOVALUE = 


El ee el Dea 


Map a code nognens into Pl space which, when called, will 
unmap the login program and activate a given image. 


Inputs: 
Access mode is executive. | 
sys$input = Descriptor of image file specification 
Outputs: 


ctl$ag_climage = Address of P1 code segment to do the work 
(should be called in executive mode) 


LOCAL 
range: VECTOR (2); 


Range of allocated space in P1 


VIFWNM (OO DNAUE WR" OOONOUSWNO 


D 

image_desc = mmgSimghdrbuf: VECTOR; ! Pass image filespec in buffer 
image_activate = true; ! Mark image activate to be done 
image_desc [0] = .sys$input fg 3 ' Store filespec descriptor into buffer 
image desc [1] = smoge desc 20; ! as well as string itself 
CHSAMOVE(.sys$input (0J> .sysSinput [1], .image_desc (1]); 


SEXPREG(PAGCNT = 1, ! Allocate one page in Pl space 
RETADR = range, 


SOCOCOSCCOOOOOOVNO oo I~ 


vvuv 
dd a dd 


QDVPUPV LV DPV PV IVD IVSU SUPE PV SVSVSUSUSU SUSU SUSU SISTERS SIS SI SI SISISIIS SS 


ACMODE = pst c_super, 
REGION = 1); 


SCMIYRNL(ROUTIN = set_pl_base, ! Set new base of control region 
ARGLST = .range (1)); ! so that code stays after rundown 


WAI AAIIUIRI IPI NIP NINN 2 2 2 OO OP SH SY HDOOCDTOOOCOCOCOOCOOOOOOWOO 


NOUS WN 0 OONO UE WN 0 OONOU SWAN (OOD NOAUEWR "OO 0ONAULS WI 


CHSMOVE(512, execute_image, .range [1]); ! Copy code into page (max. 1 page) | 
ctl$ag_climage = .range [1]; ! Store address of code segment 
END; 


a a ee ee a nd nd od od od 
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007C 00000 -ENTRY MAP_IMGACT, Save R2,R3,R4,R5,R6 : 1492. 
56 000000006 00 9 900¢ MOV IMAGE DESC+4, R6 ; 
000 SUBL #8, SP : 
000000006 98 1 Bats MOVB #1, IMAGE_ACTIVATE ; 1519 | 
000000006 9 D0 01 MOVL SYSS$INPUT? R2 > 1521) 
FC AG DO OOO1A MOVL R2, IMAGE_DESC ; 


J 4 | 
16-Sep-1984 02:01:14 AX-11 Bliss-32 v4.0-7 Page 38 INI) 
aaa 1 %§ 41:06 LOGIN. SRCJINITUSER. B53 1 ° (9) | Iya. 

6 4 Ab 9E 0001 MOVAB IMAGE DESC+8, MAGE _DESC+4 : 1522) 
i 000000806 08 D 00 ; MOVL SYS$IRPU al : 1398, 
0 : p 0 MOVL_  IMAGE_D pesced RO ; 
60 61 002C MOVC3 Re. (R1), (ROD : 
6 DD 00030 PUSHL # + 1528 
2 DD 00032 PUSHL @# ; 
08 AE 9F 000 PUSHAB RANGE F 
01 0D 00037 PUSHL # : 
000000006 00 04 FB 00039 CALLS #4, SYSSEXPREG : 
06 AE DD 0040 PUSHL RANGE+4 + 1531 
OGOOV CF 9F 0004 PUSHAB s T_P1_BASE : 
009000006 90 ge eB tine CALL “SYSSCMKRNL : 
04 BE 000000006 0200 8F 2 4 MOVC #512 EXECUTE IMAGE, @RANGE+4 : 1533 
000000006 00 04 AE BO 0059 MOVL RANGE +E. CTL$AG_CLIMAGE ; 1333 


; Routine Size: 98 bytes, Routine Base: S$CODES + 0767 
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Save ot hig 
AP, CTLSGL_CTLBASVA 


.EXTRN CTLSGL_CTLBASVA 
#1; RO 


0000 00000 SET_P1_BASE: 
. WORD 
2 
9 
C 


! Base address of permanent P1 space 
! Set new base of fixed P1 region 


g 
9 
base address of the fixed portion 


SCODES + 07C9 


INITUSER 
vO4-000 

| 

40 1 

a2 | 

tg 1 

44 1 
545 1 
278 1 

47 1 

48 1 

49 1 

50 1 

ie 
226 1 
553 1 

554 1 
555 1 
556 

557 

558 

559 

560 
He 

363 

564 

565 

566 RETURN true; 
567 2 
568 1 END; 

00000000G 00 
50 
; Routine Size: 13 bytes, Routine Base: 


This routine resets the 

of the control region. 

Access mode is kernel. 

ap = New base address for fixed P1 
routine = status (not signaled) 


ctl$gl_ctlbasva; 


ROUTINE set_pl_base = 
ctl$gl_ctlbasva = .ap; 


EXTERNAL 
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34 bytes, 


; Routine Size: 


N 4 
04-000" 1ecSep-19be Voie:06 — ECOGIN.S 


GLOBAL ROUTINE set_username: NOVALUE = 


! oe 
i 
Set the username in the JIB and P1 space. 
i Inputs: 
Access mode = Kernel 


AP = Address of username descriptor 


3} 1616 1 
3; 3 1615 1 
3; 3 1614 1 
3; (1 1615 1 
3 3 1618 1 
; (1 1617 1 
3 1 1618 1 
3) 1619 1! 
3; 7 1620 1! 
s 1 1621 1! 
3% 16 § 1! 
: 1 16 1! 
3; 3 1624 1 ! Outputs: 
3 Y 1625 1! 
; 1307 1626 1! None. The JIB and P1 space are updated. 
: 1308 1627 1! 
: 1309 1628 1 !--- 
: 1310 1629 1 
3 1311 1630 2 BEGIN 
3 15 ¢ 1631 2 
3s 13 1934 BUILTIN 
3 1314 163 AP; 
3 1315 1634 
3; 1316 1635 § MAP | 
$ i 4 1936 AP: REF VECTOR; ! Address of username descriptor 
3 1319 1638 ; EXTERNAL 
; \ ? 1973 § ctl$t_username; ! Username string in P1 space 
3s 15 ; 1641 2 LOCAL 
5 3 i 19%6 § jib: REF BBLOCK; ! Address cf JIB 
3: 1325 1644 2 CHSCOPY(.AP [0], .AP (1), : Copy username string 
: 1326 1645 § 7 2 ! blank padded 
: 13 1946 § jib$s_username, ctl$t_username); ! to control region | 
3 3 ; 1963 2 jib = .ctl$gl_pcb Cpcb$l_jib); ! Get JIB address | 
3 13a) 1939 ; CHSCOPY( . AP CO}, .AP C1), ! Copy it to JIB as well 
3 1333 1936 2 jib$s_username, jib Cjib$t_username)); 
: 1334 1653 2 
: 1335 1654 1 END; | 
.EXTRN CTLST_USERNAME | 
003c 00000 -ENTRY SET_USERNAME, Save R2,R3,R4,R5 : 1612 | 
0c 20 04 BC 6C 2c 9008 MOVCS (APT, @4(AP), #32, #12, CTLE$T_USERNAME > 1644 
444494443 BS 000. : 
50 00000000G 00 4 000D MOVL CTL SG, PCB, RO > 1648 | 
50 0080 0 p 0014 MOVL 128(ROJ, Ji ; | 
0c 20 06 «BC or oe C Baie MOVC5 (AP), adc AP), #32, #12, 12¢J1B) 3 1652 | 
04 00021 RET > 1654 | 
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node info into P1 space 
S$ 
S 


Node addre 


' $CMKRNL subroutine to load 
Node name 
Remote id 


' Last Link processed 


-srcptr, 0, 6, ctl$t_nodeaddr (1)); 


NOVALUE = 
-srclen), .srcptr, 0, 6, ctl$t_nodename [1)); 


-srclen), 


INITIAL (0); 


_node_info (bufadr, buflen) 
E 
E 
E 
ame (0) 
+ .srclen; 


<0,16>; 


Pl space is updated. 
2: 


nodeaddr (0) 
tr + .srclen; 
ptr + 
t_nodename 

tr 


nodename: 
remoteid 
-src 


CHSCOPY<((ctlSt 


Set the node name, node address, and remote ID strings. 


Link = local Link number 
tr GEQA .bufend 


None. 
URN 0; 


srclen = .(.srcptr) 


ctl$t_nodeaddr: 
ctl$t 
ctl$t 


LOCAL 
OPY((ctl$ 


Last_link: 
ROUTINE load 


BEGIN 


Address the returned information and its end 
tr = 


Copy remote node address 


Copy remote node name 


Inputs: 
Outputs: 
src 


bufend = (srcptr = .bufadr) + .buflen; 


LOBAL ROUTINE set_node_name (Link): 


srcptr = .srcp 
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i ooo 
BEGIN 
OWN 
EXTERNAL 
srcptr = .srcp 
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IF 

THEN RE 
src 

CHS 
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d 5 
INITUSER 16-Sep-1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 45 
v04=000 18-88-1382 95 0TN LOGIN. SRCJINI TUSER.B32 51 9° 43) 
5 1394 1718 
; 1395 171 ! : 
s 1 38 1714 ' Copy remote ID 3 
: 139 1715 i ; 
; 1398 at IF sorcetr — .bufend : 
: 1399 171 THEN RETURN 0; ; 
3 ieee ay erclen = Poh te rebate : 
° srcotr = .srcptr Py ° 
: 1e58 \f Y CHSCOPY ((etLSt. remoteid CO] = .srclen), .srcptr, 0, 16, ctl$t_remoteid ([1]); | : 
: 1404 17 ‘ RETURN 1; | ; 
> 1405 17 : 
1606 1724 2 END; | : 
.PSECT SOWNS,NOEXE,2 | ; 
00000000 00210 LASTLLINK: ‘ | ; 
LEXTRN CTLST_NODEADDR, CTLST_NODENAME | : 
-EXTRN CTLSTREMOTEID | ; 
-PSECT $CODE$,NOWRT,2 | ; 
O1FC 00000 LOAD_NODE_INFO: ; 
.QORD Save R2,R3,R4,R5,R6,R7,RB : 1676 F 
56 04 aC D0 00002 MOVL BUFADR, SRCPT : 1692 | ; 
58 56 08 AC C1 00006 ADDL3 BUFLEN, SRCPTR, BUFEND : 
38 56 D1 0000B CMPL  SRCPTR. BUFEND : 1697 | 
50 1€ OO000E BGEQU§ 1$ : | 
57 04 dO 90019 MOVL #4, SRCLEN + 1699 
000000006 00 57 90 0001 MOVB  SRCLEN, CTL$T_NODEADDR : 1700 
06 0 ry oseaieene 3? 2c 0001 MOVCS SRCLEN, (SRCPTR), #0, #6, CTLST_NODEADDR+1 ; 
56 57 CO 00024 ADDL2 SRCLEN, SRCPTR > 1701 
58 56 D1 00027 CMPL.  S§RCPTR. BUFEND : 1706 
34 1€ OOO2A BGEQU 1$ ; | 
57 B86 3C 0002C MOVZWL (SRCPTR)+, SRCLEN : 1708 
000000006 00 57 90 000¢F MOVB SRCLEN, CTL$T_NODENAME + 1710 
06 0 66 inte. 37 2¢ 00036 MOVCS SRCLEN, (SRCPTR), #0, #6, CTLST_NODENAME*1 ; 
56 7 co 99049 ADDL2 SRCLEN, SRCPTR > 1711) 
§ 6 D1 0004 CMPL  SRCPTR; BUFEND : 1716 | 
18 1E 00046 GEQU 1$ : 
000000006 80 BF 35 poode MOVE, SRCLENY CTLSt REMOTE ID £1920 
10 0 ° 66 ee oe 37 2c 00038 MOVCS  SRCLEN, (SRCPTR), #0, #16, CTLST_REMOTEID+1 3 | 
50 01 00 0908¢ MOVL #1, RO : 1722 | 
50 be 00080 18 fERL RO 1724 
Be Sooee ; RET : 
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LL 


, § 
INITUSER 16-Sep-1984 02:01:14 AX=11 Bliss-32 V4.0-742 
V04~008 1228601 382 95:0 i0g LOGIN. SRCIINI TUSER. 83251 
; 1283 5 ir SCMKRNL(ROUTIN = load_node_info, ARGLST List) 
; = ° = t 
 Veee Vf ¢ tes oad_node_info L arglis 
; 1466 1784 Last_link = .Link; 
3 1467 1785 
3; 1468 1786 1 END; 


-PSECT $PLITS,NOWRT,NOEXE,2 


90000002 9909¢ P.AAR: .LONG : 
0000000 00000000 000A “LONG 0, 0 
00 00 00 3A 54 45 GE SF O00A8 P.AAT: ASCII \“NET:\<0><0><0> 
010E0005 O00BO0 P.AAS: .LONG 17694725 
00000000" 00084 -ADDRESS P.AAT 
.EXTRN SYSSASSIGN, SYS$QI0W 
“EXTRN SYS$DASSGN 
.PSECT $CODE$,NOWRT, 2 
003¢ 00000 .ENTRY SET_NODE_NAME, Save R2,R3,R4,R5 
SE 8C AE 9E 00002 MOVAB =-118(SP)> 
20 AE 1C 00 00006 MOVL #28, NFB_DESC 
24 ~=AE 58 AE 9E OO00A MOVAB NFB, NFB~DESC+4 
18 AE 08 DO O0000F MOVL #8, KEY_BESC 
1C AE 50 AE 9E 00013 MOVAB Y, KEY_DESC 
10 AE 1E D0 00018 MOVL #30, BUFFER DESC 
14 AE 30 AE 9E O00IC MOV BUFFER, BUFFER DESC+4 
04 AE 0000" CF OC 28 00021 MOVC 2, P.AAR, ARGLIST 
08 AE 30 AE SE 00028 BUFFER, ARGLIST+4 
1C 00 ia 00 2C 0002D MOVCS #0, (SP), #0, #28, NFB 
58 AE 00032 
58 AE 00080422 BF D0 00034 MOVL #525346 NFB 
5c = AE 08010012 «= BF_sSsé«éOO:«0003C MOVL  #134283282, NFB+4 
68 AE 080100146 BF DO 00044 MOVL  #134283284. NFB+16 
6C AE 08020043 BF DO 0004C MOVL  #134348867. NFB+20 
70 AE 08020044 8F DO 00054 MOVL  #134348868. NFB+24 
50 AE D4 0005C CLRL —sCKEY 
50 04 AC DO 0005F MOVL LINK, RO 
54 AE 50 00 00063 MOVL RO, KEY+ 
0000' CF 50 D1 00067 CMPL RO, LAST_LINK 
0 13 906¢ BEQL 
> FE 06 CLRQ -(SP) 
08 AE OF 9007 PUSHAB CHAN 
0000" CF 9F 0007 PUSHAB P.AAS 
000000006 00 4 FB 9007 CALLS #4, SYSSASSIGN 
4D 0 E 007E BLBC =—_-rRO,. 2S 
— 7C 00081 CLRO = ( §P) 
18 AE 9F 00 3 PUSHAB BUFFER DESC 
18 AE OF PUSHAB ARGLIST+ 
<8 AE 9F 00089 PUSHAB KEY_DESC 
4 AE 9F 0008C PUSHAB NFB~DESC 
7E 7C OOO8F CLRQ = = (SP) 
48 AE OF 0091 PUSHAB 10SB 
38 DD 00094 PUSHL #56 
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7E 28 AE 3C 00096 MOVZWL CHAN, =(SP) : 
7E 04 OO09A CLRL = : 
000000006 09 Of Fe 9 CALLS #12, SSM : 
E A BLBS RO : | 
28 OA 8 ag LRW + 1773 
7E gf C AD 1$ MOVZWL CHA -(SP 3 1774) 
000000006 09 1 FB OA CALLS #1, SYS$DASSGN : 
1 28 AE i 0008 BLBC § + 1775 
04 AE 9F 00087 PUSHAB ARGLIST + 1782 
FEDF CF 9F QOOBA PUSHAB a NODE_INFO : 
000000006 00 02 FB 000B CALLS , SYSSCAKRNL ; 
06 50 £9 900¢ BLBC 4% ; 
0000" CF 04 AC 00 000C8 MOVL LINK, LAST_LINK + 1784 
04 OOOCE 28: RET + 1786 


; Routine Size: 207 bytes, Routine Base: $CODE$ + 087D 
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INITUSER p-1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 49 

yo4~008 71982 95:08 LOGIN. SRCJINI TUSER.B325 1 . (167) 

; 1470 1787 1 GLOBAL ROUTINE set_term_name: NOVALUE = 

: 1471 17 : 1 

3 ote 17 1 !<-- 
3; 147 1790 1! 

3 1474 1791 +1! Set the terminal name in the PCB. 

: 1475 1736 1! 

> 1476 17953 1! Inputs: 

3: 1477 1794 1! 

>; 1478 1795 1! term_name = Descriptor of terminal name 

3; 1479 1796 : 7 

; 1480 1797 1 ! Outputs: 

; et 1798 1! 

3: 146 4 1799 1! None. PCB is updated. 
; 148 1800 1! | 
> 1484 1801 1 !<-- 

3; 1485 1806 1 
: 1486 180 BEGIN | 
: 1487 1804 | 
; 1488 1805 OWN 

: 1283 1308 Link; ! Remote terminal's local Link | 
3; 1491 1808 ROUTINE load_term_set_link: NOVALUE = ! SCMKRNL subroutine to load PCB 

; 1038 130% BEGIN ! and fetch remote terminal's Link 

3 1494 1811 CHSCOPY(.term_name £92. ' Copy terminal name | 
3 1495 1sl¢ stern. name ' with the leading ''_" | 
> 1496 181 ' blank filled 

; 1497 1814 } nto | 
: 1498 1815 ct sgt pcb Focb$t. terminal]);  ! the pce 

3 1499 1816 ctl$gl_pcb CSBYTEOFFSET(pcb$t_terminal),0,8,0] = ! Change to ASCIC 

3 1200 ae .term_name [0] - 1; I" without the eading "_"’ 

3 1206 1819 Link = 0; ! Assume no Link to teteh | 
: 150 1820 IF .dev_char_2 Cdev$v_rtt] ! If this is a remote terminal, 
; 1504 1821 THEN 

; 1505 13se 4 BEGIN 

: 1506 1823 4 LOCAL : 

; 1507 1824 4 chn: WORD ' Channel to terminal 

; 1508 1825 4 ucb: REF $BBLOCK; i CCB/UCB pointer 

3; 1509 P 1826 4 IF SASSIGN(DEVNAM = term_name, ! Assign channel to terminal 

3; 1510 1827 5 CHAN = chn) 

3 1511 1828 4 EN 
$ 131g 1829 5 BEGIN 

3 151 1830 5 ucb = .ctl$gl_ccbbase - .chn; ' Get the CCB | 
> 1514 1831 5 ucb = .ucb ECctb$l_ucb]; ' Get the UCB 
3: 1515 1832 5 Link = .ucb tucbsi_ rtt_link]; | Get the local Link number 

3; 1516 1833 5 SDASSGN(CHAN = -chn); i Deassign the channel 

3 1517 1834 4 END; 

3; 1518 1835 ; END; 

3: 1519 1836 

: 1520 1837 2 END; 


-PSECT SOWNS,NOEXE,2 


00214 LINK: .BLKB 4 
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LOGIN Csl fuse SER.B32; 1 (14) 


»PSECT S$CODES$,NOWRT,2 


Q1FC 00000 LOAD_TERM SET_LINK: 
ORD” Save R2,R3,R4,R5,R6,R7,R8 ; 1808 


.QOR ; 
58 000000006 00 9€ 0000 MOV TERM_NAME, R8- 3 
3 04 C2 0000 SUBL as : 
5 68 DO 0000C MOVL § TERM_NAME, R7 : 1811 
28 000000006 00 po O00%3 A ae eet : 115 
08 20 60 “ ? i OOtA MOVCS R7, (RO), 84 35° #8, 68(R6) : | 
44 6 57 01 83 00021 SUBB3 #1, R7, 68(R6) ; 1817) 
0000" CF D4 00026 CLRL LINK : 1819) 
30 000000006 00 be 4 0002A BBC #2, DEV_CHAR_2, 1 ; 1820) 
E 7C 00032 CLRQ_ = =($P) > 1827 
08 af 9F 00034 PUSHAB CHN : 
58 0D 00037 PUSHL R8 3 
00000000G 00 04 FB 00039 CALLS #4, SYSSASSIGN 3 
1F 50 5? 49-98 BLBC RO, 1$ 3 
50 6E ¢ 0004 MOVZWL CHN, UCB :; 1830. 
50 000000006 00 50 ¢ Babee SUBL3 UCB, CTLSGL_CCBBASE, UCB 3 
50 60 0 0004 MOVL (UCB), UC : 1831 
0000" CF 00D6 ¢cO 3C 00051 MOVZWL 214 cue) LINK : 1832) 
7 6— 3C 00058 MOVZWL CHN, =(S ; 1833. 
000000006 00 01 FB 00058 CALLS #1, SYS$DASSGN : 
04 00062 1$: RET : 1837 
; Routine Size: 99 bytes, Routine Base: S$CODE$S + 094C 
3: 1521 1838 ; 
: 1356 137 SCMKRNL(ROUTIN = load_term_set_link); |! Load terminal into PCB, set Link 
3; 15246 1841 IF link NEQ 0 ! If there is a Link, 
3; 1525 see THEN 
; 1526 184 § set_node_name(. link); ! Store the node stuff into Pl space 
: 1527 1844 
; 1528 1845 1 END; 
0000 00000 -ENTRY SET TERM_NAME, Save nothing ; 1787, 
7E 04 00002 CLRL (SP) ; 1839 
96 AF 9F 00004 PUSHAB es TERM, set rink ; 
000000006 00 02 F st CALLS 3 
50 0000" CF 00 000 3 MOVL > 1841) 
07 13 0001 BEQL : | 
50 0D Oot PUSHL i > 1843, 
FEB2 «CCF 01 FB 0001 CALLS #1, SET_NODE_NAME ; 
04 QOOIC 1$: RET > 1845. 
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INITUSER 18-Sep-1984 98:01:18 AX-11 Bliss-32 
v04- 984 : NIT 


V4.0-742 Page 53 
14-Sep-1 41:06 LOGIN.SRCJI E 


USER.B32;1 (16) 


63 GLOBAL ROUTINE create_logical(log_name,eqv_name,acc_mode,att_bute,tbl_name) = 
: oa eo 
Create a logical name using the LNM services. 
Inputs: 
log_name = Address of descriptor of logical name 
eqv_name = Address of descriptor of equivalence name 
acc_mode = Access mode for logical name 
= Address of longword of logical name attributes 


Optional: Default is no attributes 
tbl_name = Address of descriptor of table name 
Optional: Default is LNMSPROCESS_TABLE 


i 

i 

i 

i 

i 

i 

i 

att_bute 
i 

i 

i 

; Outputs: 
i 


SCRELNM'’s status is returned. 


COO NINN NINN NNO AAO om 


OWONAVEWN (OO ONAUE WN" OOONOUS 


@ oo AAO 
DOOOOOO0O0 00 OBWDODWDOWDODMDMOo~~ 


Ab Ab Ab Ab AL AL Ab Ab Ab Ab Ab Ab Ab Ab Ab Ah Ah Ah Ah ah dh hh Ah Ab hh Ah ahd 


31 18 $ 1 

3; 1 8 1 

3; 7 1880 1 

; : 1s 1 : 

3% 18 : 1 

3; 1 1884 1 

; 1 1885 1 

3 1 1886 1 

3; 7 1887 1 

3 3 1888 1 

3; 7 1889 1 

3; y 189G 1 

3 7 1891 1 

; 1 18 § 1 

3; 3 18 1 

3 1 1894 1 

3; 1 1895 1 

; 1 1896 1 

3; 3 1897 1 ' 

; 158 1898 1 !--- 

3; 4 1899 1 

: 158 1900 2 BEGIN | 
; 158 1901 
: 158 1306 MACRO 

; 158 190 inm_attsize = 0, 0,16,0%, ! Attributes size 
; 158 1904 Lnm_atttype = 0,16,16,0%, ! Attributes type 

; 1590 1905 inm_attaddr = 1, 0,32,0%, ! Attributes address 

3; 1591 1906 Lnm_attrlen = 2, 0,32,0%, ! Attributes result length 

3 1 4 1907 inm_strsize = 3, 0,16,0%, ' String size 
3; 159 1908 inm_strtype = 3,16,16,0%, ' String type 
3 1594 1909 inm=straddr = 4, 0,32,0%, ' String address 

3 1595 1910 inm_strrlen = 5, 0,32,0%, : string result length 

3: 1596 1911 2 Lnm_endlist = 6, 0,32,0%; ! End-of-List 

3 1597 1316 § 

: 1598 191 OWN : ; 
; 1599 1914 2 item_list : BLOCKC2*3+1,LONG) ! SCRELNM item List (2 entries) 
: 1600 1915 2 PRESET(Clnm_attsize] = 4, : 

3: 1601 1916 Lnm_atttype] = Lnm$_attributes, 
3 iene 1917 pha et toners = 0, ! Filled in... | 
3 160 1918 Lnm_attrlen] = 0, , 

3 1604 1919 inm_strsize] = 0, ! Filled in... 
; 1605 1920 2 inm_strtype] = pras_string. : 

: 1906 1361 lnm_straddr] = 0, ! Filled in... 

3; 160 19 § inm_strrlen] = 8 

: 1608 132 inm=endlist) = 05; 

; 1609 1924 

: 1610 1925 BUILTIN 

3: 1611 1926 NULLPARAMETER; 

2 lols 1927 

3 161 1928 MAP 

3: 1614 1929 eqv_name : REF VECTOR; 

; 1615 1930 

: 1616 1931 LOCAL 

3: 1617 1938 table_name; 

: 1618 193 

; 1619 1934 table_name = ZASCID ‘LNMSPROCESS_TABLE'; ! Default table to process 


M 53 
1$- sep: ~ 1386 9g: 7:01:14 AX=11 Bliss-32 V4.0-742 Page 54 
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Bust 


4 12:41:06 LOGIN. SRC ini fuse -B32;1 (16) 


; 1620 1935 IF NOT NULLPARAMETER(5) If table name s Lied 
; 1? 1 Bs THEN table_name = .tbl_name; i “then use oueltes one 
: 16 § 1938 item _ListCinm atteder? = UPLIT(O); ' Default attributes to 0 
: 1624 1939 IF NOT NULLPARAMET ' If attributes supplied 
; 1 ? 1379 THEN item_ Listt tame attedér? = ,att_bute; ! then use supplied ones 
5 1627 194 item_list{lnm_strsize] = .eqv_name(0); ' Set string Length 
: Ys 3 1348 item_listClnm_straddr] = yo es | ! and string address 
: 1630 P 1945 2 SCRELNM(TABNAM = .table_name, ! Create the logical name 
3 193] P 1946 LOGNAM = .log_name, 
: 16 ¢ P 1947 ACMODE = acc _mode, 
3: 163 1948 ITMLST = item_ list) 
: 1634 1949 
: 1635 1950 1 END; 
} 
.PSECT $PLIT$,NOWRT,NOEXE,2 | 
42 41 56 SF 53 53 45 43 GF 52 50 26 4D ‘ 4C OO00B8 P.AAV: .ASCII \LNMSPROCESS_TABLE\<0><0><0> : 
00 00 00 45 4¢ 0Q00C - 
010E0011 OOOCC P.AAU: .LONG 17694737 : 
00000000" 00000 ADDRESS P.AAV : 
00000000 000D4 P.AAW: .LONG 0 s 


| 
LPSECT SOWNS,NOEXE,2 | 
0003 0004 00218 ITEM_LIST: 
. } 


WORD 4, 3 : 
00000000 00000000 0021¢ “LONG 60, O : 
0002 0000 00224 “WORD 0, 2 ; 
00000000 00000000 00000000 00228 “LONG §60. 0, 0 : | 
-EXTRN SYSSCRELNM 
.PSECT SCODE$,NOWRT,2 
0004 00000 .ENTRY CREATE LOGICAL Save R2 ; 1878 | 
52 0000' CF 9€ 0000¢ MOVAB ITEM LIST+ Re ; | 
51 0000" CF 9€ 9000 MOVAB P.AAO, TABL LENA > 1934 
05 6C 91 0000C CMPB ss CAP), #5 + 1935 
09 #‘1F 99008 BLSSU.'1$ ; 
14 AC D5 0011 TSTL 20¢AP) : 
04 1 00014 BEQL ~=séC‘1$ : 
14 AC DO 00016 MOVL TBL IN TABLE_NAME : 1936 | 
62 0000' CF 9E OOOIA 1$: MOVAB P.ARW, LER, LIST+4 : 1938 | 
6C 91 OO01F CMPBsC AP), #4 : 1939 
09 1F 00022 BLSSU _2$ ; 
10 AC 03 00 4 TSTL  16(AP) : 
04 13 00027 BEQL 28 : 
10 AC 00 00029 MOVL ATT_BUTE, ITEM_LIST+4 > 1940 
0 08 AC OD 00 D 28: MOVL § EQV"NAME. RO > 1942 | 
08 A 60 B 6 1 MOV) (ROT, ITEM _LIST#+12 ; 
oc A 04 =A pO 035 MOVL 4(ROS, ITEM_LIST+16 > 1943 | 
FC A2 OF OO03A PUSHAB ITEM_LIST > 1948 


nN 5 : | 

NITUSER -$ep-1984 02:01:14 AX-11 Bligs-32 V4.0-742 Page 55. ef] 
Mara tts 1ereee= TBs 93:21:88 | HANGIN. BAS indtuttaesse 29° 18) | 
oc AC 9F 0003 PUSHAB ACC_MODE F | 
AC DD 9004 PUSHL LOG"NAME : | 
Be ince BURN TAS ea 
000000006 00 05 FB 00047 Sate; Bee, SERRE 1950 


; Routine Size: 79 bytes, Routine Base: SCODE$S + 09E3 


04-000" 


s j 
: 1 
3 1 
3: 1 
3 1 
3 1 
3; 1 
: 1 
3 1 
3 1 
. 5 
3 1 
3: 1 
3 1 
. 4 
3 1 
: 1 
3 1 
3 1 
. 5 
. 3 
: 1 
3; 1 
2 9 
7 
: 1 
3 
3 1 
3 1 
: 1 
3: 1 
3 1 
3: 1 
3; 1 
: 1 
3: 1 
: 1 
: 1 
3: 1 
2 1 
3 1 
3 1 
. 2 
31 
: 1 
3 1 
: 1 
.y 
: 1 
2 1 
: 1 
: 1 
2 1 
. 7 
: 1 
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16-$ 
14S 
ROUTINE make_rightslists : NOVALUF = 
BEGIN 


' non=paged pool. 


' 
' 
' 
J 
' 
' 
! Inputs: 
N 
' 
' 
' 
' 
' 


The first step is to get as many identifiers as 
rights List. 
the number of ID's that 

first ID, the UIC, is se 


First, the environmental rights. 


IF pee Stet eRe Thiet batch)] 

THEN roc_type = ZASCID ‘BATCH* 

ELSE IF .pc aStelSe IFS] TION CpchSv neturk) J 
THEN pec. type = ZASCID ‘NETWORK’ 

it 4 F .pcb_sts($BITPOSITION(pcb$v_inter)] 


BEGIN 
exec type = ZASCID ‘INTERACTIVE’; 
rehire ene adevice 


elsewhere. 


BEGIN 
IF .dev_char_2Cdev$ 


re 
nnenwe 


A 
eC 
A 
A 


p=1986 $3341 06 


AX=11 Ot ieee 
LOGIN. SRCJINITUS 


i Collect all the identifiers associated with this user, and then 
! copy them into appropriate places in the process PCB, and maybe 


one. The rights database is interrogated for the information. 
! Outputs: 
None. The PCB is updated. 
LITERAL 
id_number = (arb$s_localrights/8) - 1; 
LOCAL 
status 
n: INITIAL(O) 
proc_type : INITIAL(O), 
term_type : ghd TAG 609» 
arglist : VECTORCS), 
desc : SBBLOCKCdsc$c_s_bln) ' Descriptor for extended rights 
riohkis : VECTORLid number*2) ! Local copy of rights List 
LH TY 2tid_number of (0)) ! preset to zero 
context : INITIAL (0) VOLATILE ' Context block for SYS$FIND_HELD 
holder_block : VECTOR(2] VOLATILE; ! Identification for this user 


possible in the local 


Note that the Literal ID_NUMBER is py Suesty one less than 
o into the local rights list. Th 


is is because the 


! Process type 


' For interactive 
! processes, find — 
!' the type of terminal 


V4.0-742 
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: 1694 008 END; 

3; 1695 09 

3 169: 10 IF .proc_type NEQ 0 ! If some kind of 
3; 169 11 THEN 

; 1698 b1¢ BEGIN 

3; 1699 P 201 IF SASCTOID(NAME = .proc_type, 

: 1700 P 2014 = rights een 

: 1701 015 4 ATTRIB = rightsl(2*.ns+1)) 

3; 170 818 THEN n = .n + 1; 

: 170 01 IF .term_type NEQ 0 

3; 1704 018 THEN 

; 1705 019 4 BEGIN 

: 170 P 2020 4 IF SASCTOID (NAME = ,term_type, 

; 170 P 2021 4 = rightstes Al 

: 1708 0 : 5 ATTRIB = rightsL(2*.ns+1)) 

3; 1709 0 4 THEN n = .n + 1; 

; 1710 024 END; 

3 1711 2025 END; 

3 ar; 2026 

3; 171 2027 : 

3 1714 2028 ! Get the non-environmental rights. 

3 1715 44 ! f 

3: 1716 030 holder_block(0) = .uaf_recordCuaf$l_uic]; 

3 1717 031 holder_block{1) = 0; 

3: 1718 O36 

3 1719 203 arglist(0) = 4; 

; 1720 2034 arglist(1J] = holder_block; 

3 1721 2035 2 arglist(4] = context; 

: 7S¢ 2036 

3 172 2037 INCR i FROM .n TO (id_number - 1) DO 

> 1726 2038 BEGIN 

: 176? 2039 orglistte) = etenceb es 12 

: 1726 2040 arglist(3] = rightslo*. iti); 

3 1727 P 2041 4 IF NOT (status = SCMEXEC(ROUTIN = SYSSFIND HELD, 
: 1728 $0e§ 4 ARGLST = arglist) 

3: 1729 20435 3 THEN EXITLOOP; 

3: 1730 2044 2 END; 

: 73) 2045 

3: 17 g 2046 ‘ A 

3; 173 2047 ' Call the kernel-mode routine to set these in place. 
7 1734 2048 ! 

3 1735 soe BEGIN 

3 1736 050 LOCAL status2; - 

3; 1737 Pp Spas 4 IF NOT (status2 = SCMKRNL(ROUTIN = set_localrights, 

: 1738 b3¢ 4 ARGLST = rights)) 

3; 1739 spe 3 THEN SIGNAL_STOP(.status2); 

3; 1740 054 END; 

3 1741 055 

; ines B28 : . 
3 174 05 ! It ney be that there are more than 15 ID's to put into place. If so, 
3 1ee O36 then keep getting them, but put them in an expandable buffer. 
: ire 060 IF .status 

7 174 061 THEN 

3 1748 § GIN : _ 
: O34 ? Sinit_dyndesc (desc); ' Create a dynamic descriptor 
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ght 
rigntsty i = Bi ghtst2]:; 


arglist({o 
arglistl} 
arglist 
arglist 
arglistl4 


END; 
RETURN; 
N 


00 00 
00 48 
49 54 43 
00 00 
00 00 


00 00 


5 


00 
52 
at 
45 
50 


00 


frye 


context; 


IF NOT (status 
THEN SIGNAL_STOP(.status); 
END; 


48 


ar 


52 


54 


55 


4C 


WHILE sentemmmiay «4 = sysec i wHELD, 

dO iniibentendiaase. rignesy ee 

If gdescléscdu_Lengthd NEQ 0 
BEGIN 


00000000¢ 
41 42 
010E0005 


OMIM LOSrwowwvoo~wm 


SAAMI EE & EWN SS 9 
OOM LOM LOOM LOCOCO WOOMWwOCoe 
*-e 


= set_more_rights, 
= desc)) 


~PSECT SPLIT$,NOWRT ,NOEXE,2 


-LONG 0OC14) 

eASCII \BATCH\<0><0><0> 

-LONG 17694725 

-ADDR P.AAZ 

ASCII Aas Tyne \<0> 

LONG BY ye 

-ADDRESS P.ABB 

1 ae \ I§TERACTIVE\<O> 
ADDR Ess’ Se ae 

[ASCII \REMOTE\<0><0> 

eLONG 17694726 

-ADDRESS P.ABF 

ASCII \B IAL UE A <0><0> 

-LONG 17694726 

-ADDRESS P.ABH 

ASCII + (Uy iain 

17694725 


p19 4 2 98! 


2:01:14 AX=-11 
41:06 LOGIN. 


up a descriptor pointin 
new ID to aad to’ the iieee 


! If there are more, 
! then continue 


Call the kernel-mode routine that will allocate a suitable chunk of 
non=paged pool in which to put the rights List, and point to it. 


SCMKRNL (ROUTIN 
ARGLST 


“ADDRESS P.ABJ 
.EXTRN SYSS$ASCTOID 


-PSECT SCODES,NOWRT.2 
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INITUSER 1h-se -1984 02:01:14 AX-11 Bliss-32 v4.0-742 Page 59 INT| 
ty 885 12-88-1382 95 0T Ng YROGIN. SRCIINI TUSER 83241 ° a3 v04 
ne rece snag" ie R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 1951 
° ave . . . . . . Py bo 
a 9900000 G 00 9E 002 MOVAB SYSSASCTOIO, R11 : ; 
A0 00900 G 00 9€E 000 MOVAB PCB_STS, R10 : ; 
9 0000' CF 9€ 019 OVAB P.ARX, RO : ; 
E AO AE 9E 0001 MOVAB -96(SP), SP : ; 
5 D4 0019 CLRL = PROC_TYPE : 1952 ; 
36 ¢ 0018 CLRO. ON : ; 
OC AE 69 8 28 00010 MOVC3 #56, P.AAX, RIGHTS : 1978 ; 
08 AE D4 000 é CLRL CONTEXT : | ; 
06 01 AA 06 Fi 00 BBC #6, PCB_STS+1, 1$ : 1991. F 
58 40 Ay %E 00 A MOVAB P.AAY, PROC_TYPE + 1992 | ; 
06 02. AA 05 £1 00030 18: BBC #5, PCB_STS+2, 2$ > 1993) : 
58 50 Ad SE 00035 MOVAB P.ABA, PROC_TYPE : 1994) ; 
32 11 00039 BRB 5$ : : 
2D 03 AA 01 €1 00038 28: BBC #1, PCB_STS+3, 5$ : 1995, : 
58 64 A SE 00040 MOVAB P.ABC, PROC_TYPE : 1998 ; 
22 000000006 00 €E9 00044 BLBC TERMINAL_DEVICE, 5$ + 1999 | ; 
06 000000006 00 02 €1 00048 BBC #2, DEV_CHAR 2, 3$ > 2002 | : 
57 74 Ad 9E 0005 MOVAB P.ABE, TERM_TYPE : 2003 | ; 
14 11 90097 BRB 5$ : : 
000000006 00 95 00059 3$: TSTB = DEV_DEP_2+1 3 2004 | : 
07 18 0005F BGEQ 4$ : ; 
57 0084 C9 9E 00061 MOVAB P.ABG, TERM_TYPE + 2005 | ; 
05 11 00066 BRB ; ; 
57 0094 C9 SE 00068 4$ MOVAB P.ABI, TERM_TYPE 3 2006 | : 
58 D5 0006D 5$ TSTL  PROC_TYPE : 2010) ; 
38 13 0006F BEQL 7$ : | F 
52 56 01 78 00071 ASHL #1, N, R2 + 2015 F 
10 AE42 OF 00075 PUSHAL RIGHTS+4ER2] : | : 
52 56 01 78 00079 ASHL 2 ; | : 
10 AE42 DF 0007D PUSHAL RIGHTSCR2) : : 
58 DD 00081 PUSHL PROC_TYPE : ; 
68 03 FB 00083 CALLS #3, SYSSASCTOID : : 
02 50 £9 00086 BLBC ~—_ RO, 6$ : ; 
56 D6 00089 INCL N ; 2016, F 
57 b3 00088 6$: TSTL TERM_TYPE : 2017 | 
1A 1 90080 BEQL 7$ ; 
52 56 01 78 0008F ASHL #1, N, R2 > 2022 | 
10 AE42 DF 00093 PUSHAL RIGHTS+4[R2) ; 
52 56 01 78 00097 ASHL #1, N : 
10 AES DF 00098 PUSHAL RIGHTSCR2] : | 
57 DD O009F PUSHL TERM TYPE : | 
68 93 FB OOOA1 CALLS #3, SYSSASCTOID : 
02 0 E9 O00A4 BLBC ~=—E_—«aRO, 7$ : : 
56 D6 BOOAr INCL N 3 2023 | 
50 000000006 00 00 O09 7$: MOVL VAF RECORD, RO : 2030 
ae 24 AO 00 00080 MOVL 6(RO), HOLDER_BLOCK : | 
04 AE D4 00084 CLRL HOLDER BLOCK+4 > 2031 | 
4C AE 04 DO 00087 MOVL #4, ARGLIST : 2033 
50. sAE 6E 9E 0088 MOVAB HOLDER BLOCK, ARGLIST+4 > 2034 | 
eos ae 08 AE 99E O00BF MOVAB CONTEXT, ARGLIST+16 : $8 5 
5 FF AG H 00C4 MOVAB -1(R6), I : 2037 
36 1 O0¢8 BRB ; 
Sh 52 1 78 OOOCA 8$: ASHL #1, I, R6 > 2039 | 


; Routine Size: 385 bytes, 
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000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


Routine 


00 


00 
53 
09 


00 


F 6 
16-Sep-19 2:01:14 AX-11 Bliss-32 V4.0-7 
18: att 9 241 1306 LOGIN.SR RCJINI TUS SER.B32; 
of AEG6 DE OOOCE MOVAL RIGHTSCR J, ARGLIST+8 
AEG6 pe D4 OVAL RIGHT $+4(R6], ARGLIST+12 
ac AE 9F OOODA PUSHAB AGL St 
000000006 OF Dp PUSHAB SYSS$FIND_HELD 
FB OOOE CALLS e SYSSTMEXEC 
D GEA MOVL RO, STATUS 
E ED BLBC STATUS, 10$ 
06 F3 OO0FO 98: AOBLEQ #6, I, 8$ 
0c AE 9F OOOF4 10$: | PUSHAB RIGHTS 
0000v CF 9F O00F7 PUSHAB SET_LOCALRIGHTS 
EB OOF CALLS #2, SYSS$CMKRNL 
E 010 LBS STATUS2, 11$ 
DD 001 PUSHL STATUS 
01 FB 00107 CALLS ae LIBS TOP 
3 £9 00108 11$: BLBC ATs 4$ 
02060000 8F 00 0011 MOVL P54 1936, DESC 
48 AE 04 00119 CLRL p SC+4 
08 00 0011C MOVL 
14 AE 9E 00120 MOVAB RIGHTS +8, SRIGHTS+é 
04 DO 00125 MOVL #4, ARGLIST 
6E 9E 01 9 MOVAB HOLD eR BLOCK, ARGLIST+4 
146 AE 9E 00120 MOVAB RIGHTS?8, ARGLIST+8 
18 AE 9E 001 ; MOVAB RIGHTS+12, MARGLIST#12 
08 AE 9E 001 MOVAB CONTEXT, ARGLIST+16 
4C AE 9F 0013C 12$:  PUSHAB ARGLIST 
000000006 00 9F 0013F PUSHAB SYSSEIND HELD 
02 FB 00145 CALLS SYSSCMEXEC 
50 £9 0014C BLBC +e 13$ 
OC AE OF 0014F PUSHAB RIGHTS 
48 AE OF 00152 PUSHAB DESC 
02 FB 0015 CALLS 2 STRSAPPEND 
DE 11 0015¢ BRB 12$ 
44 AE 83 0015E 138:  TSTW DESC 
1D 13 00161 BEQL 
44 AE 9F 00163 PUSHAB DESC 
O000v CF 9F 00166 PUSHAB SET_MORE_RIGHTS 
98 FB OO16A CALLS a5. ~SYSSTMKR RNL 
50 DO 00171 MOVL RO, STA 
53 EB 00174 LBS STATUS, Rs 
53 DD 00177 PUSHL STATUS 
01 FB 00179 CALLS #1, LIBSSTOP 
04 00180 14%: RET 


Base: SCODE$ + 0A32 
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putin set_more_rights = 


Copy the extended rights List to non-paged pool, and 
set a pointer in the PCB. sabe 


Inputs: 
mode is KERNEL 
AP = address of descriptor pointing to the rights List 


Outputs: 
None. The PCB is modified. 


BUILTIN 

ap. 
BIN 

pcb = .ctl$gl_pcb : SBBLOCK, 

arb = .pcbCpcb$l_arb] : S$BBLOCK, 

desc = .ap : seBb0CK 

rightslist = arb arb$l_rightslist] : VECTOR; 
LOCAL 

status, 


size, 
chunk : REF VECTOR; 


if .rightslist(2] NEQ 0 
THEN 


BEGIN 
IF NOT (status = exe$deanonpaged(.rightslist(2])) 
— RETURN .status; 


! 
i 
! must be the size in the descriptor, plus 
the chunk. 


descriptor, and another 4 for type and size o 


if 

THEN RETURN ss$_insfmem; 

chunk(0) = oSonehgectu. lengths 

chunk(1J] = chunk 3 

chunk(2] = dyn$c_rightslist*16 + .size; 
seen ve deset agesacpotater 


desc c$a ointerd, 
chunk $353 - 
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' the block 


2.82 46 28s 188 28s 28s ode ote oe 


Check to see if there is already a rights list. If so, deallocate it. 


Grab a chunk of non-paged pool large enough rer ene tients ef H 
H es: ytes to store the 


NOT (status = exe$alononpaged(.descCdsc$w_length] + 12; size, chunk)) 


Set up the descriptor 
Set size and type of block 


Copy the local data 
nto the rest of 
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on reat name tables. While the job table will be created in a fashion that 
will causing the existing table (created within PROCSTRT) to be deleted, this 
will not be the case with the group table that is to be created. If a group 
table with the same name is found, it is left undisturbed and no table 
creation takes place. 


J 6 
INI TUSER 16-Sep-1984 1:14 AX-11 Bliss-32 
y04~008 ergo 1882 FSi8hibg «| HANGIN. Shes Ents 
: } vr } 8 ! GLOBAL ROUTINE set_lnm_tables = 
: 1879 190 1 !-<- 
; 1880 191 1! 
: 1882 136 : Set the correct group and job-wide logical name tables. 
; 188 194 1 ! Inputs: 
; 1886 196 i i b TRUE if th i b 
: ! subprocess = the process is a sub-process 
>; 1886 197 1! uaf_record = Address of uaF record for user ( must be non-zero ) 
> 1887 198 1! 
: 1889 ace Se eee 
: 1890 01 BEGIN 
: 189 08 LOCAL 
: 189 04 roup_table_name: VECTOR [ 16, BYTE }: 
> 1894 05 Fob table_name: VECTOR C 16, BYTE_J, 
; 1895 06 table_name_desc: VECTOR C 2, LONG J] INITIAL ( 16, group_table_name ), 
> 1896 07 item_list: VECTOR C (2*3)+1, LONG J; 
: 1b98 $09 5 
; +344 2210 | Convert the binary group number to ASCII and append it to ‘‘LNM$GROUP_"’ 
: 1901 1 
H 4 P ; i $FAO ( ZASCID "LNMSGROUP_!OW', 
; 190 P 2214 table_name_desc, 
; 1904 P § 15 table_name_desc, 
: iene sig § -uaf_record C uaf$w_grp J ); 
: 1907 218 : 
; 1908 219 ! Construct the item List for LNMSGROUP and re-create the logical name. 
: 1910 $55) 5° 
: 1911 2238 item_list C 0 } = (LNMS$_ATTRIBUTES“*16 OR 4); ! Define the translation to be 
; ba 222 item_list € 1 J = UPLIT (LNMSM_TERMINAL); ! terminal 
: ba $sSe item_list C 2 ] = 0; 
: 1915 226 2 item_list [ 3 ] = (LNM$_STRING*16 OR .table_name_desc [0] ); 
3; 1916 227 2 item_list C 4 J] = ,table_name_desc [ 1 ]; T Define the translation string 
; at 33 item_list C 5 ] = 0; 
3 ba 2280 item_list C 6] = 0; ! End the item List 
: 1954 P 234 SCRELNM ( ACMODE = %REF (PSLSC_KERNEL), 
: 1966 isl ; ITMLST = item_List, 
3 19 » 4 LOGNAM = ZASCID ‘LNMSGROUP' 
; 1904 35 TABNAM = ZASCID "LNMSPROCESS_DIRECTORY'); 
: 1958 a 
: 198 M3 If the process is not a sub-process, re-create the job-wide and group 
:1 40 
: ; 
:1 3248 
3 1 244 
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53 


00 


4C 


SF 


53 


00 
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21 


BEGIN 


IF NOT .subprocess 
THE 


16-$ 
14°$ 


; ] 
ep 198 


4 8: 


14 1 Bli 
706 LOGIN. SRC) 


AX=1 ~ 
N 


Construct the name of the job-wide logical name table by appending to 
LNM$SJOB_"* the ASCII representation of the process's JIB address. 


ta 
$F 


L 
Ov 


-ctl$gl_pc 


name desc{ 1 J 
ZASTID ‘LNMSJ 
table_name_desc, 
table_name 


= job table_name; 
OB_!XL’, 


desc, 
BC peb$l_jib J ); 


: Create the job and group logical name tables. 


RETURN EXESCRE_JGTABLE ( 9 torordt uafS) jtquote ], 
° 


END 


SE 
RETURN 1; 
ND; 


55 


55 


5F 


4F 


4F 


42 


52 


47 


24 


24 


24 


group_table_name + 10 ); 


4D 4E 4¢ 
00 
010E000D 
00000000" 
00000200 
4D rh} 4C¢ 
54 435 = 45 
0100015 
00000000° 
4D 4€ 4 
Bhs 94 
00000000° 
4D 4E 4C 
010€0008 
00000000" 
OFFC 
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coco“ 


Ooooooooooooooo 
SOoCcooooooooeooeo 
ed ne ss ws ts 
FSPSnOn enone rus 


CT VOoOWWr>rowow 


wea wu Bw wa RV Bw 
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-ABL: 
-ABK: 


ABM: 
ABO: 


- ABN: 


ABQ: 
ABP: 


ABS: 
ABR: 


MOVAB 


~PSECT 
-ASCII 
- LONG 

R 


- ADDRESS 


“ASCII 


SPLITS,NOWRT,NOEXE,2 
\LNM$GROUP _ ! OW\<0><0><0> 
17694733 

P.ABL 
\LNMSPROCESS_DIRECTORY\<0><0><0> 
17694741 


«ADDRESS P.ABO 


-ASCII 
- LONG 


-ADDRESS 
-ASCII 


- LONG 


-ADDRESS P.AB 


-EXTRN 
~PSECT 
-ENTRY 


\LNMSGROUP\<0><0><0> 
1 om rer 
J 


P.AB 
ren oF. 1B Neo 
1 arr 1 


SYSS$FAO 
SCODES,NOWRT .2 


SET NM TABLES, Save R2,R3,R4,R5,R6,R7,R8,- 
R9,R10,R11 

SYSSFAO, RO 

P.ABK, R6 

-72(SP), SP 


2 


6 | 
INITUSER 1b-se -1984 02:01:14 AX-11 Bliss-32 V4.0-742 Page 66 
14085 ence h 88s PS:2idg | HANGIN Obes indfuMea asses . 28s 
30 AE 10 p0 12 MOVL #16, TABLE_NAME_DESC : 2201. ; 
4 Ar 8 A i 1 MOVAB GROUP_TABLE_NAME, TABLE_NAME_DESC+4 : | ; 
3 000000006 0 18 MOVL AF RECORD, -R t 2216. ; 
E 6 Ad 3C 000 MOVZWL 38(RO), - : | ; 
4 AE 9F 000 § PUSHAB TABLE_NAME_DESC : | ; 
8 AE OF 00 PUSHAB TABLE~NAME—DESC : | ; 
56 DD 0002C PUSHL R : : 
69 04 FB 0002E CALLS #4 SYSSFAQ : ; 
04 AE 00030004 8F 00 00031 MOVL #196612, ITEM_LIST ; 3222 | ; 
08 AE 08 A6 9E 00039 MOVAB P.ABM, ITEM_LIST+4 + 222 i 
C AE D4 0003E CLRL TEN LIST +s > 2226 ; 
10 AE 20 AE 00020000 8F C9 00041 BISL3 #131072, TABLE_NAME_DESC, ITEM LIST#12 : 2226 ; 
16 AE 24 AE DO 00048 MOVL §§ TABLE_NAME_DEST+4, ITTEM_LIST+16 : ; 
18 AE 7C 90050 LRQ ~—s- ITEM_CIST+20 + 2228 3 
04 AE 9F 0005 PUSHAB ITEM"LIST + 2235 ; 
04 AE 04 00056 CLRL = &( SP : ; 
04 AE 9F 00059 PUSHAB 4(SP) : ; 
38 «=6A6 «OF 0005C PUSHAB P.ABP : | : 
24 Ab OF O005F PUSHAB P.ABN : ; 
7E D4 00062 CLRL -(SP) : b 
000000006 00 05 FB 00064 CALLS #5, SYSSCRELNM : ; 
37 000000006 00 €8 00068 LBS SUBPROCESS, 1 + 2246 F 
a (O 28 3=6AE OSE 0007¢ MOVAB JOB _TABLE_NAME, TABLE_NAME_DESC+4 > 2255 ; 
50 000000006 00 D0 0007 MOVL CTLSGL PCB, RO > 2259 
0080 CO DD O007E PUSHL  128(ROJ : 
$3 AE 9F po ee PUSHAB TABLE_NAME_DESC $ 
8 AE 9F 0008 PUSHAB TABLE NAME ~DESC : 
4C Ab 9F 00088 PUSHAB P.ABR ; 
69 04 FB 0008B CALLS #4, SYSSFAO ; | 
5B 42 AE 9E OOO8E MOVAB GROUP_TABLE_NAME+10, R11 : 2267 
SA 30 AE oe 00092 MOVAB JOB_TABLE_NAME+8, R10 : 2266 
50 000000006 00 D0 00096 MOVL UAF RECORD, RO > 2265 
57 0238 CO DO 0009D MOVL  568TRO), R : 
000000006 060 16 O00A2 JSB EXESCRE.JGTABLE ; 
04 000A8 RET + 2270 
50 01 DO 000A9 18: MOVL #1, RO : 
04 OOOAC RET + 2271 


; Routine Size: 173 bytes, Routine Base: S$CODE$ + 0C21 


pisos 
un T 


6 
or a ep-1984 01:14 AX-11 Bliss-32 V4.0-742 
§4-005 Het MELT} LOGIN. SRCJINITUSER.B3251 
; 196 72 1 END 
: 196 3378 0 ELUDOM 
-EXTRN LIBSSTOP 
H PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS 472 NOVEC, oes RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES a $4 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 64 NOVEC, WRT. RD »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
rte = Symbols ccocoece Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBJLIB.L32;1 18619 159 0 1000 00:01.4 
“$255$DUA28: CSHRLIBINET.L32;1 1279 15 1 63 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INITUSER/OBJ=OBJ$:INITUSER MSRC$: INI TUSER/UPDATE=(ENHS: INI TUSER) 


3278 code + 1036 data bytes 
ime: g 


ke Time: 02:30. 


Lines 


/CPU Min: 34 ont 


Rorenee/TPy-Ate) 346 


Memor 
Compi 


Used: 285 pages 
ation Complete 


INTI 
V04: 
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